Записать на Паскале задачу
даны два числа х, у большее из них возвести в квадрат. 

var a, b : integer;
begin
readln(a,b);
if a > b then written(a*a)
else writeln(b*b);
readln()
end.
––––––––––––––––––––––
Если что-то не понятно - пиши

Var
x,y,k:integer;

begin
writeln('Введите первое число');
read(x);
writeln('Введите второе число');
read(y);
If x>y then k:=x else K:=y;
K:=k*k;
writeln('Ответ ', k);
end.

Как то так