t.pl0

PL0文法编译器

(* Testprogramm *)
const n=10000;
var s, i, j;

begin
   write('Test');
   writeln;
   i:= 0;
   while i < n do
   begin
      i:= i + 1;
      write(i);
      writeln;
      s:= 0;
      j:= 0;
      while j < n do
      begin
         j:= j + 1;
         s:= s + j;
      end;
   end;
   (* Kommentar *)
end.