С клавиатуры вводятся оценки учащихся. Подсчитать количество сдавших экзамен (получили оценку не менее 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.