Введены 2 числа, замените первое из них ** их полусумму

Question

Введены 2 числа, замените первое из них на их полусумму

Answer 1

Program HalfSum

Uses Crt; 

var a,b,tmp:real;

begin 

      clrscr;

     write('Введите первое число:');

     readln(a);    

     write('Введите второе число:');

     readln(b);

     tmp:=(a+b)/2;

     a:=tmp; 

 

    writeln(' Первое число после замены:',a); 

   readkey;

 

end.