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

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.