Program n1;var x:integer;y:real;beginfor x:=1 to 9 dobeginy:=x*(8*x*x-7)+8;writeln(y);end;end.
Program z1;
var x,y:integer;
Begin
for x:=1 to 9 do
begin
y:=8*x*x*x-7*x+8;
writeln('f(',x,')=',y);
end;
end.
Program n1;
var x:integer;
y:real;
begin
for x:=1 to 9 do
begin
y:=x*(8*x*x-7)+8;
writeln(y);
end;
end.
Program z1;
var x,y:integer;
Begin
for x:=1 to 9 do
begin
y:=8*x*x*x-7*x+8;
writeln('f(',x,')=',y);
end;
end.