Program Iterasi (Angka)

Fungsi: Tak ada fungsi khusus, hanya menampilkan pola-pola angka saja…

Hint : Begitu jalan, langsung masukan angka saja, Jangan masukan angka terlalu kecil atau besar.

Screen Shot:

uses crt;

var inp,i,a,t,r:integer;

begin

readln(inp);

t:=inp;

for i:=1 to inp do

  begin

for a:=1 to inp do

  write(a-t);

  writeln;

t:=t-1;

end;

readln;

end.