Язык паскаль с клав ввод 2 числа x и y не равные друг другу. Меньший из этих двух числ...

Question

Язык паскаль с клав ввод 2 числа x и y не равные друг другу. Меньший из этих двух числ заменить их пол суммы а большие их удвоен произвед

Answer 1

Подойдёт? var  x,y: real; begin  read(x,y);  if x < y then  begin  x := (x+y)/2;  y := 2*x*y;  end  else  begin  y := (x+y)/2;  x := 2*x*y;  end;  write('x=',x,', y=',y); 

Answer 2

Program qq; //Я плохой
var
x,y:integer;
begin
writeln('Спасибо сайту znanija.com! Введите два числа:');
read(a,b);
if a>b then begin a:=a*b; b:=b/2 end; else begin b:=b*a; a:=a/2; end;
writeln(a,' ',b);
End.