Question

Даны 2 числа если квадратный корень из второго числа меньше первого числа,то увеличить второе число в 5 раз и вывести его на экран в противном случае вывести его на экран "no"

Answer 1

program ex;

var x,y:integer;

begin

readln(x); readln(y);

if  sqrt(y)<x then begin y:=y*5;writeln(y);end

else writeln('no');

end. 

 

Answer 2

program ex;

var x,y:integer;

begin

readln(x,y); 

if  sqrt(y)<x then

begin y:=y*5;

writeln(y);

end

else writeln('no');

end.