Pascal 程式

var i,j:integer;
begin
i:=1; 'i表示目前為第幾橫行
while i <= 10 do '當目前仍是第10橫行以內繼續循環
begin
j:=1; '在目前的行的第一個數開始
while j <= i do '由於每行要印的個數, 剛好與行數的數字相同,所以當j未夠i時繼續
begin
write(j,','); '每次印出j (j會由1數到i)
j:=j+1; 'j的內容加1
end;
writeln; '完成循環j後, 要換行
i:=i+1; '行數加1
end;
end.

下面是以repeat...until做的
var i,j:integer;
begin
i:=0;
repeat
i:=i+1;
j:=0;
repeat
j:=j+1;
write(j,',');
until j=i;
writeln;
until i=10;
end.