Viết chương trình tinh giai thừa của n với n được nhâp từ bàn phím.( sử dụng vòng lặp while). Minh đang cần gấp, mọi người giúp mình với

Mình chỉ biết for … do thôi. tham khảo nhé

program tinh_n; 

uses        crt;

var          S,n,i: longint;

begin 

clrscr;

s;=1;

write ( ‘ nhapson= ‘); readln (n); 

for i;=1 to n do 

S;= S*i; writeln ( n; ! = ‘,S); 

readln; 

end

tick 5* và ctlhn nhé