Используя способ нисходящего проектирования, создать схему метода и составить программу

Проектировать тут нечего, так как задачка - простая.
Блок-схема - в прилагаемом файле.
Программка:
var x,p:integer; f:real;
begin
writeln('x    F');
p:=1;
writeln(x,' ',exp(0)-p:5:2);
for x:=1 to 6 do
 begin
 p:=p*x;
 f:=exp(-x)-p;
 writeln(x,' ',f:8:4);
 end;
end.

Итог:
x    F
0  0.00
1  -0.6321
2  -1.8647
3  -5.9502
4 -23.9817
5 -119.9933
6 -719.9975