В классе 20 учеников писали диктант по русскому языку.Напишите программу,подсчитывающую количество двоек,троек,четвёрок и пятёрок,полученных за диктант. Ребят,пожалуйста,очень срочно!!!кто хорошо знает-пишите,не из Интернета !!!

если с клавиатуры вводить оценки, то такvara,b,c,d:integer;begina:=0; b:=0; c:=0;for i:=1 to 20 do beginreadln(d);if d=2 then inc(a) elseif d=3 then inc(b) elseif d=4 then inc(c);end;write(' dvoek - ', a, 'troek - ', b, 'chetverok - ', c);readln;end.