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