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.
