program fantscrin;
var x,y: real;
begin
x:= 0;
while x <= 2 * 3.14 do
y:=sin(x) + 2/cos(x);
x:=x + 0.1;
writeln('x = ', x,' y = ', y);
end;
end.
