написать программу на языке Паскаль, которая подсчитывает количество двоек, троек, четверок и пятерок, полученных за к/р в классе из 20 человек.

program Brainly;var puple_count,mark,two, three, four, five, i: integer;begin writeln('Введите количество учеников'); readln(puple_count); writeln('Введите оценки'); for i:=1 to puple_count do begin readln(mark); case mark of 2 : two := two + 1; 3 : three := three + 1; 4 : four := four + 1; 5 : five := five + 1; end; end; writeln('5: ', five); writeln('4: ', four); writeln('3: ', three); writeln('2: ', two);end.