Program zap_5;
Uses Crt;
Const n=10;
Type reys = record
N : integer;
Vremv, Vremp, gorod:string;
end;
Var a : array[1..n] of reys;
i :byte;
g:string;
BEGIN
ClrScr;
for i:=1 to n do
with a[I] do
begin
Writeln('N рейса ',I,'самолета');
Readln(N);
Writeln('Время вылета');
Readln(vremv);
Writeln('Время прилета');
Readln(vremp);
Writeln('Город');
Readln(gorod);
end;
Writeln('введите требуемый город');
Readln(g);
for i:=1 to n do
with a[I] do
if gorod=g then writeln (N:4,’ ‘,vremv,’ ‘, vremp);
Readln;
end.