Program Segitiga Asyik

program segitigaasyik01;
uses wincrt;
var
a,b,c:integer;
begin
write('yang diinginkan: ');read(a);
for b:=1 to a do
begin
for c:=1 to b do
write(c:2);writeln;
end;
end.

program segitigaasyik02;
uses wincrt;
var
a,b,c:integer;
begin
write('yang diinginkan: ');read(a);
for b:=1 to a do
begin
for c:=1 to b do
write(c:2);writeln;
end;
end.

program segitigaasyik03;
uses wincrt;
var
a,b,c:integer;
begin
write('yang diinginkan: ');read(a);
for b:=1 to a do
begin
for c:=1 to b do
write(b:2);writeln;
end;
end.

program segitigaasyik04;
uses wincrt;
var
a,b,c,d,e:integer;
begin
write('yang diinginkan: ');read(a);
for b:=a downto 1 do
begin
for c:=b downto 1 do
write(c:2);write(' = ',d);writeln;
d:=0;
d:=d+(a-1);
end;
end.