Var
 N:array [1..18,1..36] of integer;
 B,i,j:integer;
Begin

For i:= 1 to 18 do
 For j:= 1 to 36 do
  N[i,j]:=random(2);

WriteLn('Введи номер вагона.');
ReadLn(B);
For i:= 1 to 36 do
 if (N[B,i]=0) then WriteLn('Есть свободное место (',i,')');

End.