var x,y: real;
begin
x:=-4;
while (x<=4) do
y:=(1/tan(x)) + 1;
writeln('x=',x:6:2,' ','y=',y:6:2);
x:=x+2;
end;
end.
var x,y: real;
begin
x:=-4;
while (x<=4) do
begin
y:=(1/tan(x)) + 1;
writeln('x=',x:6:2,' ','y=',y:6:2);
x:=x+2;
end;
end.