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

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ArrRandom(20,2,5); a.Println;
  var r:=a.GroupBy(t-gt;t).Select(t-gt;(t.Key,t.Count)).OrderBy(t-gt;t[0]);
  foreach var v in r do Writeln(v[0],': ',v[1])
end.

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.