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


Надо написать программу на posal abc

var a,n,l,o2,o3,o4,o5:integer;beginn:=20;a:=0;o2:=0;o3:=0;o4:=0;o5:=0;repeata:=a+1;write('Введите оценку ', a, ' ученика: ');read(l);if l = 2 then o2:=o2+1;if l = 3 then o3:=o3+1;if l = 4 then o4:=o4+1;if l = 5 then o5:=o5+1; until a=n;writeln('В классе: ', o2, ' Двоек, ', o3, ' Троек, ', o4, ' Четвёрок, ', o5, ' Пятёрок.')end.