Program zap_7;
Uses Crt;
Const n=10;
Type reys = record
N : integer;
Stan_ot, Stan_pr,vrem, vrem_p:string[10];
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(stan_ot);
Writeln('Станция прибытия');
Readln(stan_pr);
Writeln('Время прибытия');
Readln(vrem);
Writeln('Время в пути');
Readln(vrem_p);
end;
for i:=1 to n do
with a[I] do
writeln (N:4,’ ‘,stan_ot,’ ‘,stan_pr,’ ‘,vrem, ‘ ‘,vrem_p);
Readln;
end.