Var
i,x:integer;
sr:real;
begin
sr:=0;
for i:=1 to 4 do
begin
write(Оценка за задачу №,i, );
readln(x);
sr:=sr+x;
end;
sr:=sr/4;
write(Средняя оценка ,Round(sr));
End.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.