kode program sederhana mengunakan pascal

uses crt;
var i, j, k, a, b, c, d : integer;
begin
for i := 1 to 6 do
begin
for j := 1 to i do begin
write(' ');
end;
for k := 7 downto i+1 do
begin
write('* ');
end;
writeln;
Readln;
End;
End.