Question

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

Answer 1

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