Menampilkan Bentuk jajar genjang dengan pascal

Sekarang nampilin jajar genjang...
sebenernya hampir sama dengan menampilkan bentuk segitiga
cuma tinggal merubah loop ke - 3.

nah ini script untuk jajargenjang:
program cetak_segitiga;
uses wincrt;
var
i , j , k , n :integer;
begin
write('masukkan nilai n :');readln(n);
for i:=1 to n do
begin
for j:=i to n do
begin
write(' ');
end;
for k:=1 to i do
begin
write('*');
end;
writeln;
end;
end.

ini gambarnya :




selamat mencoba .