Hãy viết thuật toán cho chương trình

Hãy viết thuật toán cho chương trình sau:
program Tinh_giai_thua;
var N,i: integer;
p: longint;
begin
write( ' N = ' ); readln (N);
p: =1;
for i:=1 to N do P :=p*i;
writeln (N , ' ! = ' , p);
readln
end.