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

Program ch3;

a, b, c: integer;

s: real;

begin

writeln ('Введите 3 целых числа через пробел');

readln (a, b, c);

s: = (a+b+c) / 3;

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

readln;

end.

Обязательно обратить внимание на то, что даже если исходные числа мы взяли целыми, переменной для среднего арифметического необходимо присвоить тип данных real, так как этой переменной присваивается формула, содержащая деление, а оно на множестве integer использоваться не может.