даны 2 реальных числа.Меньше  из их поменять полусуммой этих чисел,а

извини, но из языков программирования которые пишут на российском знаю только 1С и это как по мне изымательство

пишу на ветхом благом паскале

var a,b,min,max:real;

  read(a,b);

  if (a lt;b) then begin

    min:=a;

    max:=b;

    a:= (min+max)/2;

    b:=min*max;

 end

 else begin

    min:=b;

    max:=a;

    b:= (min+max)/2;

    a:=min*max;

 end;

 writeln(a,b);

End.