На языке pascal напишите программу, которая будет подсчитывать количество двоек, четвёрок и пятёрок, полученных за контрольную работу по при условии если в классе 32 человека. исходные данные вводятся с клавиатуры с соблюдением правил дружественного интерфейса.

Var   a, i, k2, k4, k5, c, d, n: integer; begin   write('введите количество учеников в классе: '); readln(n);   if (n = 32) then   begin       c : = 1;       d : = 5;       writeln('введите оценки учеников: ');       k2 : = 0;       k4 : = 0;       k5 : = 0;       i : = 1;       while i < = n do       begin           write('оценка ученика №',i,': '); readln(a);           if (c < = a)and(a < = d) then           begin               case a of                   2: k2 : = k2+1;                   4: k4 : = k4+1;                   5: k5 : = k5+1;               end;               i : = i+1;           end           else               writeln('неприемлимое значение! допустимые значения: [',c,'..',d,']');       end;       writeln('количество двоек: ',k2);       writeln('количество четвёрок: ',k4);       writeln('количество пятёрок: ',k5);   end   else       writeln('в классе не 32 ученика'); end.

Ответ в файле: vvvvvvvvvvvvvvvv

Program j7; var  a: array of char;   n: integer;   i: integer;   cnt: integer; begin  writeln('введите размер массива: ');   readln(n);   setlength(a,n);   for i: = 0 to n-1 do    begin      write('символ № ',i+1,' ');       readln(a[i]); //заполнение массива    end;   for i: = 0 to n-1 do      begin               write(a[i]+' '); //вывод массива (по желанию)    end;             writeln();   cnt: =0;   for i: = 0 to n-1 do    begin      if a[i] in ['a'..'z'] then        begin          inc(cnt);       //подсчет маленьких латинских букв        end;     end;   writeln('количество маленьких латинских букв: ',cnt);   write('нажмите клавишу enter для ');   readln(); end.