//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var m:=readinteger('m='); var y:=0.0; var x:=1.0;
for var i:=1 to m do
begin
y:=7*x**3+14*x/3-6;
x:=i+0.2;
writeln('y=',y:0:4,' ','x=',x);
end;
end.