Даны два числа 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.