Ввести 2 числа с клавиатуры если первое число больше второго то вывести на экран квадрат первого иначе квадрат второго
Program A; var x,y:integer; begin writeln('Введите два числа:'); readln(x); readln(y); if x > y then writeln(x * x) else writeln(y*y);end.