Segitiga Asyik

program segitiga_asyik_01;
uses wincrt;
var a,b,c:integer;
begin
write('masukkan angka= ');read(a);
clrscr;
for b:=1 to a do
begin
for c:=1 to b do
write(b:3);
writeln;
end;
end.