test3.pl

来自「包含“源代码”“文档”“可执行文件（例子）”三个文件夹」· PL 代码 · 共 13 行

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.