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 .