составьте программку, заменяющую наименьшее из 2-ух данных чисел на среднее арифметическое

var

  a, b, c: real;  a и b - вводимые с клавиатуры числа, c - буферная переменная, которая будет содержать значение переменной a

begin

  writeln('Введите 2 числа');

  readln(a, b);  //Вводим числа

  c:= a;  

  if a lt; b then Если a lt; b, то заменяем а на среднее арифметическое этих чисел, b - на творение этих чисел и распечатываем их

  begin

    a:= (a + b) / 2;  

    b:= c * b;

    writeln('a lt; b =gt; a = ', a, ', b = ', b);

  end;

  if b lt; a then  Если b lt; a, то сменяем а на творение чисел, b - на среднее арифметическое чисел

  begin

    a:= a * b;  

    b:= (c + b) / 2;

    writeln('b lt; a =gt; a = ', a, ', b = ', b);

  end;

  if a = b then writeln('Числа одинаковы');  Числа числа одинаковы, то печатаем известье об этом

end. 

Если все верно, отметь решение как лучшее)

var x,y,k:real;

begin

readln(x,y);

if xgt;y then begin k:=y; y:=(y+x)/2; x:=x*k end

else begin k:=x; x:=(x+y)/2; y:=y*k; end;

writeln(x,y,);

end.