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

Подойдёт? 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); 

Program qq; //Я плохой
var
x,y:integer;
begin
сайту Введите два числа:');
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.