С клавиатуры вводятся оценки учащихся. Подсчитать количество сдавших экзамен ( получили оценку не менее 3) и не сдавших предмет( получили 2)

Программа Паскаль

Program maxx;
var ocenka,sdal,nesdal,k,i:integer;
begin
writeln(введите кол-во оценок);
readln(k);
sdal:=0;
nesdal:=0;
for i:=1 to k do
begin
readln(ocenka);
if ocenka>2
then sdal:=sdal+1;
else nesdal:=nesdal+1;
end;
writeln(sdal);
writeln(nesdal);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.