Составить программу с функцией в паскаль которая находит среднее арифметическое двух чисел

Cоставим код заданной программы:

program sredneearifm;

var a, b, sr: integer;

begin

writeln ('Введите первое число для нахождения среднего арифметического: a =');

readln (a);

writeln ('Введите второе число для нахождения среднего арифметического: b =');

readln (b);

sr: = (a + b)/2;

writeln ('Среднее арифметическое двух чисел равно', sr);

end.

Проверим работу программы:

После запуска на экране появится сообщение:

Введите первое число для нахождения среднего арифметического: a =.

Вводим a = 5 и нажимаем Enter;

Введите второе число для нахождения среднего арифметического: b =

Вводим b = 7 и нажимаем Enter.

На экране выведется: Среднее арифметическое двух чисел равно 6.

Pascal: var a,b,s:real; begin writeln('Введите 2 числа'); readln(a,b); s:=(a+b)/2; write('Среднее арифметическое=',s:0:2); readln end.