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

Uses crt;

var g: Integer;

n, m: Real;

Begin

Write ('Введите два числа: ');

Readln (m, n);

If m>n then begin

g:=n;

n: = (m+n) / 2;

m:=2*m*n;

end

else begin

g:=m;

m: = (m+n) / 2;

n:=2*m*n;

end;

Writeln ('m = ', m, ' n = ', n);

End.