// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
var
x:integer;
begin
for x:=-8 to 8 do Writeln(x:3,sqr(x)-9*x+4:6)
end.
Результат выполнения программы:
-8 140
-7 116
-6 94
-5 74
-4 56
-3 40
-2 26
-1 14
0 4
1 -4
2 -10
3 -14
4 -16
5 -16
6 -14
7 -10
8 -4