Программа поиска среднего значения от 3 чисел -=A,B,C.

var

a, b, c: integer;

s: real;

begin

writeln('Введите три числа');

readln(a);

readln(b);

readln(c);

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

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

end.