Pascal Programming Display Specific Pattern Number

Pascal program to show specific pattern number like as follows:

1	2	3	4	5
5	6	7	8
8	9	10
10	11
11

is:

var a,b,c,d:integer; begin   d:=5;   for a:=1 to 5 do   begin    for b:= 1 to d do    begin     c:=c+1;     write(c,' ');    end;    d:=d-1;    c:=c-1;    writeln;   end;   readln end.

If there is something not understand, please asked... : )
Hope it is useful, thank you... :)

Posted in: