Как это решить,помогите пожалуйста!))

1. Составьте блок – схему и программу вычисления значения функции:

2. Составьте программу, определяющую, является ли число А делителем числа В.

3. Составьте программу, заменяющую меньшее из двух данных чисел модулем разности, а большее – модулем произведения этих чис

const eps=0.001;

var n,st,f:integer; a,s:real;

begin

n:=1; a:=2;

st:=2; f:=1; s:=2;

while a>eps do

 begin

 st:=st*2;

 f:=f*n;

 a:=st/f;

 s:=s+a;

 n:=n+1;

 end;

writeln('s = ',s:6:3);

end.

Результат:

s = 14.778