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

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]>1) and (a[i]<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.