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

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.