uses crt; var n,i:integer; T:longint; begin clrscr; write('Nhap n: '); readln(n); writeln('n la: ',n); T:=1; for i:=1 to n do T:=T*i; write('T la: ',T); readln end.
Program FNG; Uses crt; Var n,i: longint; s: qword; Begin Clrscr; Write('Nhap n: '); Readln(n); s:=1; For i:=1 to n do s:=s*i; Writeln(n); Write('S = ',s); Readln End.