Var a, b, c,rez: real;
begin
writeln( Введите три числа );
read ( a, b, c );
rez := ( a + b + c ) / 3
writeln (ср. знач.=, rez:0:2 );
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.