&.txt

来自「pl0 扩展功能 包括++ -- 注释 for语句 repeat until语句」· 文本 代码 · 共 12 行

var a,sum;   ?alev==0 slev==0?
begin 
  sum:=0;
  a:=1;
  repeat
    begin
       sum:=sum+a;
       a:=a+1
    end;
  until a>100;
  write(sum);
end.