Даны действительные числа x и y, не равные друг другу. Меньшее из этих двух чисел заменить половиной их суммы, а большее — их удвоенным произведением — Pascal(Паскаль)

uses crt;
var x,y,s,p:real;
begin
clrscr;
repeat
writeln('Введите 2 не равных числа:');
readln(x,y);
until x<>y;
s:=(x+y)/2;
p:=x*y*2;
if x<y then
 begin
  x:=s;
  y:=p;
 end
else
 begin
  x:=p;
  y:=s;
 end;
write('x=',x:0:2,'  y=',y:0:2);
readln
end.

var x, y, m, n: integer;
begin
readln(x, y);
if x > y then begin
  n := 2*x*y;
  m := (x+y) div 2;
end else begin
  n := (x+y) div 2;
  m := 2*x*y;
end;
writeln('x=', n, '; y=', m);
readln;
end.