Даны два действительных различных числа х и у. Заменить меньшее из этих двух чисел и полусуммой,а большее их утроенной полуразность?

var i,jx,y:longint;

begin

read(x,y):

i:=x;

j:=y

if x<y then begin x:= (i+j) div 2; y:= 3*((i+y)div2);

if y<x then begin y:= (i+j) div 2; x:= 3*((i+y)div2);

writeln(x,' ',y);

end.

var x, y : real;begin readln (x, y); if x < y then begin x := (x + y) / 2; y := 6 * abs (x - y);  end else begin y := (y + x) / 2; x := 6 * abs (y - x); end; writeln (x, ' ', y); readln;end.