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

uses crt;var g: Integer;n,m: Real;BeginWrite('Введите два числа: ');Readln(m,n);If m>n then beging:=n;n:=(m+n)/2;m:=2*m*n;endelse beging:=m;m:=(m+n)/2;n:=2*m*n;end;Writeln('m = ', m, ' n = ', n);End.