большее из 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.