Даны 2 числа возвести В квадрат первое число если оно больше второго в противном случае найти их сумму

Ответ:

var a,b:Integer;

begin

Write('Введите первое число ');

ReadLn(a);

Write('Введите второе число ');

ReadLn(b);

if a>b then Write('Первое число больше второго и его квадрат равен ',a*a)

else Write('Первое число не больше второго и сумма чисел равна ',b+a)

end.