В классе 20 учеников писали диктант по русскому. Написать программу подсчета кол-ва 2 3 4 5 получивших за диктант (писать через массива)

var

a: array [1 ... 20] of 2 ... 5; / / Массив оценок учеников

i: integer;

n: array [2 ... 5] of 2 ... 5; / / Массив счетчиков оценок

begin

for i: = 2 to 5 do / / Обнуляем счетчики оценок

n[i]: = 0;

for i: = 1 to 20 do / / Вводим оценки учеников и считаем их

begin

writeln ('Введите оценку ', i, ' ученика') ;

readln (a[i]) ;

if a[i] = 2 then n[2]: = n[2] + 1;

if a[i] = 3 then n[3]: = n[3] + 1;

if a[i] = 4 then n[4]: = n[4] + 1;

if a[i] = 5 then n[5]: = n[5] + 1;

end;

for i: = 2 to 5 do

writeln ('Количество получивших ', i, ' за диктант равно: ', n[i]) ; {Выводим значения счетчиков}

end.