uses crt;
var n,i,tich:integer;
begin
clrscr;
      tich:=1;
      write('Nhap n:');readln(n);
      for i:=1 to n do tich:=tich*i;
      write('Tich so tu 1 den ',n,' la:',tich);
readln;
end.

Var i,n: longint;
p: int64;
Begin
Write('Nhap n= '); readln(n);
i:=1;p:=1;
while i<=n do
begin
p:=p*i;
i:=i+1;
end;
writeln(' P= ',p);
readln;
end.


Bài này nếu dùng lặp vs số lần chưa bt trc sẽ dễ hơn đó bạn. Bài này mik làm lặp vs số lần chưa biết trước theo yêu cầu bạn đó chúc bạn học tốt