program oken; uses crt; var n,i: byte; s: real; function gt(a: longint): real; begin if a=1 then gt:=1 else gt:= a*(gt(a-1)); end; begin clrscr; write('Nhap so N: '); readln(n);{gion han la 32 de hien thi tron ven ket qua} for i:=1 to n do s:=s+gt(i); writeln('tong luy thua cua ',n,': ',s:0:0); readln; end.
