test.pas

一个PASCAL编译器

PROGRAM Test;
{$IFDEF WIN32}{$APPTYPE CONSOLE}{$ENDIF}
{$R+,S+}

PROCEDURE X;
 PROCEDURE Y;
 BEGIN
  WRITELN('BLA');
 END;
BEGIN
 Y;
END;

VAR A,B:INTEGER;
BEGIN
 FOR A:=1 TO 16 DO BEGIN
  FOR B:=16 DOWNTO 1 DO BEGIN
   WRITELN(A:5,B:5);
  END; 
 END;
 X;
END.