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

Var
a,b:integer;
begin
write('Введите значение A=');read(a);
write('Введите значение B=');read(b);
write('Среднее арифметическое чисел=',(a+b)/2);
end.