Question

пожалуйта помогите даю 40 баллов!!!!!Даны два целых числа. Определить число,
Квадрат которого больше. Если квадраты чисел
равны, то вывести любое из них.​

Answer 1

var

y,x: integer;

begin

read(x,y);

if sqr(x)>sqr(y) then

write('Квадрат ',x, ' больше')

else

if sqr(x)<sqr(y) then

write('Квадрат ',y, ' больше')

else

write(sqr(x),'=',sqr(y) )

end.