program lab7;
var p,t,k,i,z,eps:real;
{*
p - само бесконечное произведение
t - множитель
k - число итераций
i - sin(z) для проверки
z - исходное число
eps - погрешность
*}
begin
write('z= ');
read(z);
{вводим степень десятки, так ловчее :)}
write('eps=10^-'); 
read(eps);
{расчитываем ее}
eps:=exp(eps*ln(0.1));
{уголок капитана очевидности}
Writeln('Число z= ', z:2:3, ',  погрешность eps=', eps:1:5); 
t:=0;
{счетчик и произведение делаем единичками}
k:=1;
p:=1;
{потом сверимся >.<}                      
i:=sin(z);
repeat
{получаем множитель}
t:=1-(sqr(z)/(sqr(k)*sqr(pi)));
{множим}
p:=p*t;
{плюсуем}
k:=k+1;
{сравниваем с погрешностью (правильно ли?!)}
until (abs(sqr(z)/(sqr(k)*sqr(pi)))<eps);
writeln('k(число итераций)=',k:2:0,',  мой sin(z)=',p:3:4,',  правильный sin(z)=', sin(z):2:4);
end.

p:=1;
{потом сверимся >.<}                      
i:=sin(z);
repeat
{получаем множитель}
t:=1-(sqr(z)/(sqr(k)*sqr(pi)));
{множим}
p:=p*t;
{плюсуем}
k:=k+1;
{сравниваем с погрешностью (правильно ли?!)}
until (abs(sqr(z)/(sqr(k)*sqr(pi)))<eps);