Написати программу в Турбо Паскалі!Срочно! Дано два дійсних числа. Менше з них замінити півсумою цих чисел,а більше - їх добутком!
var a, b, s, p:real;
begin
readln(a,b);
s:=(a+b)/2;
p:=a*b;
if a then begin
a:=s; b:=p;
end
else begin
a:=p; b:=s;
end;
writeln('a = ',a,' b = ',b);
end.