Паскаль. для заданного x в последовательности вида sinx, sin((sin( первое число,меньше по модулю 0,01.

Var x:integer;
begin
readln(x);
x:=sin(x);
while abs(x)>0.01do
x:=sin(x);
writeln(x);
end.