Большее из 2 вещественных возвести в квадрат, меньшее в куб

var a, b: Real;  begin   write('Введите число а: ');   readln(a);   write('Введите число b: ');   readln(b);  if a > b then   begin     a := a * a;     b := b * b * b;   end   else   begin     a := a * a * a;     b := b * b;   end;   writeln('a = ' + a);   writeln('b = ' + b); end.