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.