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

var a,b,s,p:real;beginreadln(a,b);s:=(a+b)/2;p:=a*b;if a<b then begin a:=s; b:=p endelse begin b:=s; a:=p; end;writeln('a = ',a:4:2,' b = ',b:4:2);end.Пример:15 27a = 21.00 b = 405.00