Надо на паскале сделать программу которая высчитывает количество учеников которые сдали, не сдали, не явились на сессию, а то что-то не выходит

===== PascalABC.NET =====

begin

 var r := ArrFill(5, 0);

 foreach var Ball in ReadSeqIntegerWhile(p -> p <> 0) do

     r[Ball-1] += 1;

 Writeln('Не явились:', r[0], '  не сдали:', r[1],

     '  cдали:', r[2] + r[3] + r[4])

end.