Даны два числа a и b. Меньшее из них замените полусуммой этих чисел, а большее -...

Question

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

Answer 1

var a,b,s,p:real;
begin
readln(a,b);
s:=(a+b)/2;
p:=a*b;
if aelse begin b:=s; a:=p; end;
writeln('a = ',a:4:2,' b = ',b:4:2);
end.

Пример:
15 27
a = 21.00 b = 405.00