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

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.

var

  x: real;

begin

  readln(x);

writeln(x: 0: 0);

end.