{* Задача 95 *}

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

Program zadach95;

Uses zadach95.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 с шагом 1 *}
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 единицу *}
  End;
  
End;
writeln('Всего ', count, ' избирателей живут на Богуна.')
End....