• Процедуры
  PROCEDURES

Имеется программа на языке Pascal. Необходимо проверить правильность вызова процедур. Считать, что в остальном программа синтаксически корректна, не содержит комментариев, описаний функций, обращений к встроенным процедурам, а также других идентификаторов, кроме имен процедур и идентификатора вывода write(). Процедуры используются без директивы forward. 


Технические требования

Входной файл: INPUT.TXT
Выходной файл: OUTPUT.TXT
Ограничение по времени тестирования: до 10 секунд на один тест


Входной файл содержит программу, написанную на языке Pascal

Выходной файл должен содержать 0, если программа неверна и 1, если верна


Пример:

INPUT.TXT
program test;
procedure error;
begin
       write('ERROR'');
end;

procedure correct;
begin
       write('OK'');
end;

begin
       error;
       correct
end.


OUTPUT.TXT
1