Perulangan pada Pascal cara 2

Dalam Postingan dulu aku dah sempet share ke temen-temen tugas pascal ke-5 tapi masih banyak kekurangannya, hehehehe maaf aku hanyalah manusia biasa yang tak luput dari khilaf dan salah tetapi hasilnya sama hanya kode nya saja yang berbeda berikut kode tugas pascal ke-5 yaitu perulangan dimana membentuk cemara:

Cara lain Tugas Pascal ke-5

Tugas ke-5 Pascal adalah membuat angka berurutan atau perulangan bilangan pada program pascal beriku soalnya

Buatlah kode pascal di bawah ini :

1
12
123
1234
12345
dst

Berikut Jawabannya:

uses crt;
const
akhir=5;
var
baris, kolom:integer;
begin
clrscr;
for baris:=1 to akhir do
begin
for kolom:=1 to baris do
writeln (kolom);
write;end;
readln;
end.

thanks before yang telah dapat membantu