Contoh Program Segitiga dengan For dan If

program segitiga_for_and;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
c:char;
i,j,n:integer;
label
mulai;
begin
writeln('==========Selamat Datang di Program Rani Amalia===========');
mulai:
write('Masukkan Nilai:');
readln(n);
for i:=1 to n do
begin
for j:=1 to 1 do
write(i);
for j:=2 to 2 do
if ((i=1) and (j=2)) then
begin
write(' ');
end
else
write(i+n-1:3);
for j:=3 to 3 do
if ((i=1) and (j=3)) or ((i=2) and (j=3)) then
begin
write(' ');
end
else
write(2*n+i-3:3);
for j:=4 to 4 do
if ((i=1) and (j=4)) or ((i=2) and (j=4)) or ((i=3) and (j=4))then
begin
write(' ');
end
else
write(3*n+i-6:3);
for j:=5 to 5 do
if ((i=1) and (j=5)) or ((i=2) and (j=5)) or ((i=3) and (j=5)) or((i=4) and (j=5))then
begin
write(' ');
end
else
write(4*n+i-10:3);
writeln;
end;
readln;
write('Mau Keluar Program??(y/t):');
readln(c);
if c='t' then
goto mulai
else
writeln('========Terima Kasih Anda telah memakai program Rani^^========');
readln
end.

HASIL Setelah di RUN(F9 pd Delphi):
==========Selamat Datang di Program Rani Amalia===========
Masukkan Nilai:3
1
2 4
3 5 6

Mau Keluar Program??(y/t):t
Masukkan Nilai:5
1
2 6
3 7 10
4 8 11 13
5 9 12 14 15

Mau Keluar Program??(y/t):y
========Terima Kasih Anda telah memakai program Rani^^========