 
исп Вагон 
цел N; N:=36     | количество мест в вагоне 
цел таб М[1:N]   | М[i]=0  <==>  место i свободно 
| М[i]=1  <==>  место i продано 
 
алг учесть продажу места (арг цел i)               | (А130) 
дано 1<=i<=N и М[i]=0 
нач 
М[i]:=1 
кон 
 
алг учесть возврат билета на место (арг цел i)      |(А131) 
дано 1<=i<=N и М[i]=1 
нач 
М[i]:=0 
кон 
 
алг цел количество проданных мест                   | (А132) 
нач цел i 
знач :=0 
нц для i от 1 до N 
знач := знач + М[i] 
кц 
кон 
 
алг цел номер свободного места                      | (А133) 
дано | свободные места есть 
нач 
знач :=1 
нц пока М[знач]<>0 
знач := знач + 1 
кц 
кон 
 
| ... ... ... 
кон_исп 
 
 
