Cara Membuat Program Tangga Angka dengan cara sederhana dengan Pascal

Program tersebut program yang unik bagi saya karena bisa dilihat dari penampilnya saja sudah menawan hati. Kodenya juga cukup mudah dan tidak mbulet alias tidak ribet, tetapi ada fungsi procedure didalam program tersebut intinya setiap program yang diawali dengan kata procedure itu diperkirakan program tersebut memiliki fungsi procedure.

procedure tangga(angka:integer);
var
baris : integer;
kolom : integer;
begin for baris := 1 to angka do
begin for kolom := 1 to baris do
begin
write(kolom);
end;
writeln('');
end;
end;
var
angka : integer;
begin
write('masukkan angka tangga : ');
readln(angka);
tangga(angka);
readln;
end.