Написать программу, подсчитывающую количество чисел (среди введенных с клавиатуры N чисел), кратных 5. И результат вывести на экран.

1.Нумерованный - например список учеников класса или больных на прием к врачу
1. Алексеев
2. Батракова
3. Воронин
4. Песков
и т.д.
2. Маркированный - например список команд в соревновании в лагере
* шахматисты
* баскетболисты
* волейболисты
* шашисты
* теннисисты
и т.д.
3.  Многоуровневый. Например список участников команд по классам
1. 8а класс:
* Смирнова
* Петров
* Исаев
* Кононова
* Антошкин
2. 8б класс:
* Тюлькин
* Свистунова
* Иванов
* Смирнова
* Ручкин
3. 8в класс:
* Петровский
* Золотова
* Крючков
* Сидоров
* Андреева

Program egor_sasha; var num_eg, num_sash,pri,pri1: real; var mes_eg,mes_sash: real; beginwriteln('numer egora'); readln(num_eg); writeln('numer sashi'); readln(num_sash); writeln('mesto egora (verkh=1,vniz=0)'); readln(mes_eg); writeln('mesto sashi (verkh=1,vniz=0)'); readln(mes_sash); pri: =num_sash+1; pri1: =num_eg+1; if num_eg=pri then    writeln('yes')  else writeln('no'); if num_sash=pri1 then    writeln('yes')  else writeln('no'); if mes_eg=1 then    writeln('egor-high')else  writeln('egor-low'); if mes_sash=1 then    writeln('sasha-high')else  writeln('sasha-low'); end.