Объяснение:
var
x, y:integer;
begin
for x:=-2 to 2 do begin
y:=2*x*x-5*x-8;
writeln('x = ', x, ' y = ', y);
end;
readln;
end.
