Известны

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

количество двоек. Без использования массива

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.