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

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

пишу на старом добром паскале

var a,b,min,max:real;

  read(a,b);

  if (a <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.