Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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