var a,b:Integer;
begin
Write('Введите первое число ');
ReadLn(a);
Write('Введите второе число ');
ReadLn(b);
if a>b then Write('Первое число больше второго и его квадрат равен ',a*a)
else Write('Первое число не больше второго и сумма чисел равна ',b+a)
end.
var a,b:Integer;
begin
Write('Введите первое число ');
ReadLn(a);
Write('Введите второе число ');
ReadLn(b);
if a>b then Write('Первое число больше второго и его квадрат равен ',a*a)
else Write('Первое число не больше второго и сумма чисел равна ',b+a)
end.