составить программу в Паскале! 9 класс! СРОЧНО!!! Даны вещественные числа х и у, не...

Question

составить программу в Паскале! 9 класс! СРОЧНО!!! Даны вещественные числа х и у, не равные друг другу. Меньшее из этих двух чисел заменить половиной их суммы, а большее — их удвоенным произведением.

Answer 1

program mar;

  var x,y:real

  

Begin

  x:=30;  y:=10  

  y:=(x+y)\2:

  x:=2*x*(x-y);

  writeln (x,y);

  readln;

End.