Помощ ! Блок схема и програма на Паскал

[Chacho]

program factorial;

var

P, n, i: integer;

begin

write('n='); readln(n);

P:=1;

for i:=1 to n do

P:=P*i;

writeln('P=',P);

readln;

end.