program for2;
uses wincrt;
var
   a,b,c: integer;
begin
    write('sembarang bilangan: ');readln(c);
    for a:=1 to c do;
begin
    for b:=1 to a do
    write(' ',a:b)
    writeln;
    end;
end.

mohon maaf jika terjadi kesalahan...
semangat!!!!!!!!!!

Related Articles :