При поступлении в вуз абитуриенты, получившие "двойку" на первом экзамене, ко второму не допускаются. в массиве a[n] записаны оценки экзаменующиеся, полученные на первом экзамене. подсчитать, сколько человек не допущено ко второму экзамену. язык программирования паскаль abc

Program p1;
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.