Написати программу в Турбо Паскалі!Срочно!
Дано два дійсних числа. Менше з них замінити півсумою цих чисел,а більше - їх добутком!

var a, b, s, p:real;

begin

readln(a,b);

s:=(a+b)/2;

p:=a*b;

if a<b

then begin

a:=s; b:=p;

end

else begin

a:=p; b:=s;

end;

writeln('a = ',a,'  b = ',b);

end.