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;
![286254331_db9eebbbf0ef5b4915addca86ce13b69_800.jpg](https://otvet.imgsmail.ru/download/286254331_db9eebbbf0ef5b4915addca86ce13b69_800.jpg)