Program Deret Fibonacci

program fibonaci;
uses wincrt;
var i,n,j,r:integer;  k:longint;
begin
writeln ('Masukkan tingkat yang diinginkan');
readln (n);
for i:=1 to n do
begin
for j:=1 to i do
k:=1;
for r:=1 to j do
begin
k:=j*k;
write (k); write(' ');
end;
writeln;
end;
end.