Программа для вычисления среднего арифметического из двух чисел в паскале

var

a, b, s : real; / / объявляем переменные

begin

writeln ('Введите два числа:'); / / вывод на экран строки

readln (a, b); / / считываем два числа, введенных с клавиатуры

s: = (a + b) / 2; / / вычисляем среднее арифметическое

writeln ('Среднее арифметическое чисел ', a, ' и ', b, ' равно ', s); / / вывод на экран результата

end.