repeat.txt

pl0 扩展功能 包括++ -- 注释 for语句 repeat until语句 if else 语句

var a,sum;
begin
  a:=0;
  sum:=0;
  repeat
   begin
    sum:=sum+a;
    a++;
   end;
  until a>10;
  write(sum)
end.