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