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

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