Program zap_2;
Uses Crt;
Const n=10;
Type data = record
name,street : string;
end;
Var a : array[1..n] of data;
count,i :byte;
BEGIN
ClrScr;
count:=0;
for i:=1 to n do
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)
end;
end;
writeln(count,' количество человек, живущих на улице Красная.');
Readln;
End.