СП
Серега Пак
В чем конкретно помочь? Писать за Вас готовую программу просто так я не собираюсь. Используйте циклы while или repeat для решения.
Сложного вроде ничего нет, на паскале последний раз писал 7 лет назад, но что-то типа такого:
begin
for x=-3 to x=1 step 0,1 do
begin
y:=4*SQR(x)-2*x+5;
println('X= ',x,' ','Y= ',y);
end.