program jjj;
uses crt;
var i,k:integer;
function fact(n:integer):LongInt;
begin if n<=1 then fact:=1 else fact:=n*fact(n-1);
end;
BEGIN clrscr;
write('vvedite simvol i ');
readln(i);
for k:=1 to i do writeln(fact(k));
readln;
END .