program pinewton;
uses dos,crt;
var n:integer;x:real;
begin
clrscr;x:=3;
for n:=1 to 5 do
begin
writeln(x:1:10);
x:=x-sin(x)/cos(x);
end;
repeat until keypressed;
end.