Permainan Segitiga Asyik...

uses wincrt;
var
a,b,n:integer;
begin
write('Masukkan banyak angka = '); readln(n);
writeln;
for a:=1 to n do
begin
for b:=1 to a do
write(a:2);
write(' ');
writeln;
end;
end.


"Selamat Mencoba....^^