При поступлении в институт абитуриенты, получившие двойку на первом экзамене, ко второму недопускаются. В массиве А записаны оценки экзаменующихся. Подсчитать, сколько человек недопущено ко второму экзамену.
"язык паскаль" 

 const n=10;var a:array[1..n] of integer;i,k:integer;beginwrite('Оценки абитуриентов: ');for i:=1 to n do a[i]:=random(4)+2;for i:=1 to n do write(a[i]:5);writeln;for i:=1 to n doif a[i]=2 then inc(k);write('Не допущены к повторному экзамену ',k,' абитуриента(-ов) ');end.