При поступлении в вуз абитуриенты, получившие "двойку" на первом экзамене, ко второму не допускаются. в массиве a[n] записаны оценки экзаменующиеся, полученные на первом экзамене. подсчитать, сколько человек не допущено ко второму экзамену. язык программирования паскаль abc
const n=10;
var i,c:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do begin
writeln('Введите оценку ',i,' экзаменующегося: ');
read(a[i]);
if(a[i]=2) then c:=c+1;
end;
writeln('К-во не допущенных: ',c);
end.