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

"язык паскаль"

const n=10;

var a:array[1 ... n] of integer;

i, k:integer;

begin

write ('Оценки абитуриентов: ') ;

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 do

if a[i]=2 then

inc (k) ;

write ('Не допущены к повторному экзамену ', k,' абитуриента (-ов) ') ;

end.