Курсовая работа: Створення програми "Залізничний вузол"

inc (s);

stok [s]: =right [r] ;

right [r]: =0;

dec (r);

end;

3:

begin

inc (l);

left [l]: =stok [s] ;

stok [s]: =0;

dec (s);

end;

end;

inc (op);

anim (i);

end;

begin

right [1]: =2;

right [2]: =2;

right [3]: =1;

right [4]: =1;

right [5]: =1;

right [6]: =2;

n: =6;

{assign (f1,'rail. dat');

reset (f1);

while not eof (f1) do

begin

read (f1,right [n]);