Составьте программу, заменяющую больше из двух данных чисел удвоенным произведением, а меньшее полусуммой этих чисел

Вопрос от пользователя: Вербния

Составьте программу, заменяющую больше из двух данных чисел удвоенным произведением, а меньшее полусуммой этих чисел

Ответ: Анемподист

Uses crt;

var a, b, c:real;

begin

read (a, b);

c:=a;

if a>b then

begin

a:=2*a*b;

b: = (c+b) / 2;

end

else begin

a: = (a+b) / 2;

b:=2*c*b;

end;

writeln;

write (a,’ ‘, b);

end.