uses wincrt; var i,j,n:integer; begin write ('masukkan angka: '); readln (n); for j:=n downto 1 do begin writeln (' '); for i:=j downto 1 do write (5:3) ; writeln; end; readln; end.
all about me..............
ehmmm..............
Q bukan orang yang sempurna, tapi Q cukup istimewa buat orang tuaQ, kluargaQ,dll...
Tapi Q selalu ingin menjadi orang yang setiap orang yang Q kenal tidak akan menyesal telah mengenal Q.amin...
Tidak ada komentar:
Posting Komentar