[GoDleSS]

Не уверен, что прав, т.к. не пользовал паскаль года 3 уже... Да и не люблю этот язык.

Код:

program arith_4;

 var x,epsilon,ans:real;
 var i,work:integer;

begin
 epsilon:=0.001
 x:=3.61;
 work:=1;
 ans:=0; 
 i:=1;

while work=1 do
 begin
	if ( (1-abs(sin(i+x)/exp(i*x))) < epsilon ) then
	 work:=0
	else
	begin
	 ans:=ans+sin(i+x)/exp(i*x);
	 inc(i);
	end;
 end;

 write('Program returns: ', ans);

end.

Для произведения ставим начальное значение ans:=1 и в понятном месте вместо '+' - '*'