Известны оценки по химии каждого ученика класса. Определить количество пятерок и количество двоек.Без использования массива

uses crt; var five,two,a,N,i: integer; begin clrscr; five:=0; two:=0; readln (N);  // кол-во учеников i:=1 to N do begin read (a);  // ввод оценок через пробел case a of    // выбор и подсчёт кол-ва 2: two:=two+1; 5: five:=five+1; end; end; writeln ('Five: ',five); // вывод результата writeln ('Two: ',two); readln (); end.