Домашняя работа

Program One;
Var x,y:real;
begin
writeln('vvedite x,y');
readln(x,y);
if x>y then
wrireln ('x=',2*x*y,'y='(x+y)/2)
else writeln('x=',(x=y)/2,y='2*x*y)
readln;
end.