Даны два числа a и b большее из них возвести в квадрат, меньшее в куб

На языке pascal;

program main;
var a, b: integer;
begin
readln(a, b);
if a>b then
begin
a:=a*a;
b:=b*b*b;
writeln('a=',a,' b=',b);
end
else
begin
if a begin
a:=a*a*a;
b:=b*b;
writeln('a=',a,' b=',b);
end
else
writeln('Введены равные числа');
end;
readln;
end.