Var x:integer;
Begin
x:=-1;
while x<=12 do
begin
writeln('x = ',x,'; y = ',(4*x*x*x*x+cos(x)-5)/(6*x*x*x+2));
x:=x+0,4;
end;
End.
