b1: nhập N

b2: p `<-` 1

b3: nếu i=n `->` b5

b4: i `<-` i+1;   p `<-` p*i; quay lại b3

b5: in p ra màn hình và kết thúc thuật toán

bạn ghi nhầm

for i:=1 to N do P:=P*1;

chữ i chứ ko phải số 1 nhé

đúng phải là for i:=1 to N do P:=P*i;

- Viết thuật toán :

+ Bước 1 : Nhập số N

+ Bước 2 : P ← 1, i ← 1

+ Bước 3 : Nếu i > N thì đưa ra giá trị P rồi kết thúc

+ Bước 4 : P ← P * i

+ Bước 5 : i ← i + 1 quay lại Bước 3

- Các biến : N, i, P

- Kiểu dữ liệu :

+ N, i kiểu integer (Nguyên)

+ P kiểu longint (Nguyên)

- Lệnh Writeln() trong chương trình in ra giá trị N, xâu kí tự  != và giá trị biến P