example3.txt

PL/0语言编译器

const c=100;
var a,b;
begin
  a:=0;
  b:=0;
  while b<=c do
    begin
      a:=a+b;
      b:=b+1;
    end;
  write(a)
end.