Контрольную работу писали 25 человек. Определить сколько учеников написали на оценку 4. В паскале.

Предыдущий
вопрос Следующий
вопрос

program ControlWork;
var
i, marks_4: integer;
mark: integer;
begin
marks_4 := 0;

for i := 1 to 25 do
begin
writeln('Введите оценку по контрольной работе для ученика ', i, ': ');
readln(mark);

end;

writeln('Количество учеников, написавших на оценку 4: ', marks_4);
end.