В классе 20 учеников писали диктант по русскому языку.Напишите программу(на Паскале)подсчитывающая количество полученных

program count_ball;const N=20;var s2, s3, s4, s5, b: integer;a: array [1..20] of integer;begins2:=0; s3:=0; s4:=0; s5:=0;for i:integer:=1 to N dobeginrepeatWrite(\'Оценка \', i, \'-го ученика: \');readln(a[i]);until (a[i]>1) and (a[i]<6);case a[i] of2: s2:= s2 + 1;3: s3:= s3 + 1;4: s4:= s4 + 1;5: s5:= s5 + 1;endend;Writeln();Writeln(\' Все оценки:\');for i :integer:= 1 to N do write(a[i] : 3);Writeln();Writeln(\' Оценки Количество\');Writeln(\' 5 -    \', s5);Writeln(\' 4 -    \', s4);Writeln(\' 3 -    \', s3);Writeln(\' 2 -    \', s2)end.