PrOgram deReT

program deret;
uses wincrt;
var i,j,k,n,r:integer;
begin
write('masukkan n= ');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:=k*j;
write(k);
write(' ');
end;
writeln(' ');
end;
end.