{* Задача 494 *}

Unit ZADACH494;
Interface
Implementation
Begin
 writeln('На избирательном участке в списке из 100 избирателей указываются фамилия и название улицы, на которой проживает избиратель. Определить, сколько избирателей живет на улице Богуна.');
End.

Program zadach494;

Uses zadach494.pas; {* Эту строку можно удалить *}
Uses Crt; {* Подключаем внешние файлы *}
Const {* Константы *}
  n = 10;
Type {* Используемые типы *}
  data = Record    name, street : String;
  End;
Var {* В работе нам потребуются переменные: *}
  a     : Array[1..n] Of data;
  count : byte;
  i     : byte;
  Begin
  ClrScr; {* Очищаем экран *}
  count := 0;
For i := 1 To n Do {* Цикл для i => [1 .. n] *}
Begin
  Writeln('Избиратель ', i);
  Writeln('Имя...');
  Readln(a[i].name);
  Writeln('Улица...');
  Readln(a[i].street);
  If a[i].street = 'Богуна' Then
  Begin
    writeln(a[i].name, ' живет на Богуна.');
    inc(count) {* Увеличиваем count на 1 *}
  End;
  
End;
writeln('Всего ', count, ' избирателей живут на Богуна.')
End..