НАПИСАТЬ ПРОГРАММУ При поступлении в вуз абитуриенты, получившие “2” на первом экзамене, ко второму не допускаются. В массиве записаны все оценки экзаменующихся полученные на первом экзамене. Подсчитать Как узнать сколько студентов сдали первый экзамен на “5”, на “4”, на “3”, и Как узнать сколько не допущено ко второму экзамену.

uses crt;var a:array [1..99999] of integer;i,n,k,l,p,o: integer;beginwriteln ('vvedite kol-vo ychenikov');readln (n);for i:=1 to n do beginwriteln ('vvedite osenky',' ',i,' ','ychenika');readln(a[i]);if a[i]=2 then k:=k+1;if a[i]=3 then l:=l+1;if a[i]=4 then o:=o+1;if a[i]=5 then p:=p+1;end;if k<2 then writeln ('ne dopyshen',' ',k,' ', 'ychenik');if k>=2 then writeln ('ne dopysheno',' ',k,' ', 'ychenika');writeln ('kol-vo 3 -',' ',l);writeln ('kol-vo 4 -',' ',o);writeln ('kol-vo 5 -',' ',p);end.

1. uses crt;
   var a:array [1..99999] of integer;
   i,n,k,l,p,o: integer;
   begin
   writeln ('vvedite kol-vo ychenikov');
   readln (n);
   for i:=1 to n do begin
   writeln ('vvedite osenky',' ',i,' ','ychenika');
   readln(a[i]);
   if a[i]=2 then
   k:=k+1;
   if a[i]=3 then
   l:=l+1;
   if a[i]=4 then
   o:=o+1;
   if a[i]=5 then
   p:=p+1;
   end;
   if k<2 then writeln ('ne dopyshen',' ',k,' ', 'ychenik');
   if k>=2 then writeln ('ne dopysheno',' ',k,' ', 'ychenika');
   writeln ('kol-vo 3 -',' ',l);
   writeln ('kol-vo 4 -',' ',o);
   writeln ('kol-vo 5 -',' ',p);
   end.