fork(3) download

program laba2exp2;
 
 
var
  a : array[1..200] of char;
  c : char;
  x, i, size : integer;
  test : integer;
 
procedure push(c : char);
begin
  size := size + 1;
  a[size] := c;
end;
 
procedure pop;
begin
  size := size - 1;
end;
 
function top : char;
begin
  top := a[size];
end;
 
function Empty : integer;
begin
  if size >= 1 then result:=0
    else result:=1;
end;
 
Procedure skobki(var c:char);  {В юнит}
var d:integer;
begin
 d:=Ord(c);
 if d = 40 or d = 123 or d = 91 then  {Код Аски}
    begin
      push(c);
      laba(c);
    end
  else srav(c);
end;
 
 
function laba(var c:char):boolean;
begin
  Read(c); { Чтение скобки }
  test:=Empty;
  if c = '.' then if test=1 then result:=false;
  skobki(c);
end;
 
function srav(var c:char):boolean;
begin
  CASE c of
    '(' : begin
            if top(c) != ')' then return:=false
              else
              begin
               pop(c);
               laba(c);
              end;
          end;
    '{' : begin
            if top(c) != '}' then return:=false
              else laba(c);
          end;
    '[' : begin
            if top(c) != ']' then return:=false
              else laba(c);
          end;
end;
 

Free Pascal Compiler version 2.6.4+dfsg-4 [2014/10/14] for i386
Copyright (c) 1993-2014 by Florian Klaempfl and others
Target OS: Linux for i386
Compiling prog.pas
prog.pas(28,27) Error: Identifier not found "result"
prog.pas(29,16) Error: Identifier not found "result"
prog.pas(36,7) Error: Incompatible types: got "Boolean" expected "LongInt"
prog.pas(39,11) Error: Identifier not found "laba"
prog.pas(41,12) Error: Identifier not found "srav"
prog.pas(49,40) Error: Identifier not found "result"
prog.pas(57,23) Fatal: illegal character "'!'" ($21)
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)

Standard output is empty