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

program count_ball;
const N=20;
var s2, s3, s4, s5, b: integer;
a: array [1..20] of integer;
begin
s2:=0; s3:=0; s4:=0; s5:=0;
for i:integer:=1 to N do
begin
repeat
Write(Оценка , i, -го воспитанника: );
readln(a[i]);
until (a[i]gt;1) and (a[i]lt;6);
case a[i] of
2: s2:= s2 + 1;
3: s3:= s3 + 1;
4: s4:= s4 + 1;
5: s5:= s5 + 1;
end
end;
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.