Используя метод нисходящего проектирования, разработать схему алгоритма и составить программу вычисления функции при заданных значениях аргументов. Результаты вычислений напечатать.

Будьте добры, помогите написать) Необходимо, чтобы присутствовало repeat и until

var x,p:integer; f:real;beginwriteln('x F');x:=0;p:=1;writeln(x,' ',exp(0)-p:5:2);repeat x:=x+1; p:=p*x; f:=exp(-x)-p; writeln(x,' ',f:8:4);until x>=6;end.

Благодарю.

Проектировать здесь нечего, так как задача - простейшая.Блок-схема - в прилагаемом файле.Программа:var x,p:integer; f:real;beginwriteln('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    F0  0.001  -0.63212  -1.86473  -5.95024 -23.98175 -119.99336 -719.9975