var i1,i2:integer;
var z,fx:real;
begin
...
i1:=0;
i2:=-3;
while(i1<=7)do begin
while(i2<=15)do begin
z:=i1+4*i2;
fx:=z*z*z+3*z+i2'
//тут типа вывод:
write (i1);
write (i2);
write (z);
write (fx);
writeln;
i2:=i2+2;
end;
i1:=i1+1;
end;
var z,fx:real;
begin
...
i1:=0;
i2:=-3;
while(i1<=7)do begin
while(i2<=15)do begin
z:=i1+4*i2;
fx:=z*z*z+3*z+i2'
//тут типа вывод:
write (i1);
write (i2);
write (z);
write (fx);
writeln;
i2:=i2+2;
end;
i1:=i1+1;
end;