Program markus7;

  uses
    markus7u;


Procedure pruzzel;

begin { pruzzel }
  if vCar^ [ 0, 0 ] <> 0 {$local W-}then;{$endlocal}
end { pruzzel };


Procedure proe;

begin { proe }
  if vCar^ [ 0, 0 ] <> 0 {$local W-}then;{$endlocal}
end { proe };


begin
  writeln ( 'OK' );
end.
