Паскаль. Даны действительные положительные числа…

Вот так?: Program solution; Uses Crt; Var x, y, t: real; beginclrscr; write ('x, y: '); readln (x, y); if x > y then begin t: =y; y: =(x+y) / 2; x: =2*x*t; endelse begin t: =x; x: =(x+y) / 2; y: =2*t*y; end; write ('x=', x: 0:4, '; y=', y: 0:4); readkey; End.