var x:integer;
begin
for x:=-5 to 7 do
writeln ('x = ',x:2,' y = ',x*x+5)
end.
Т.к не указано с каким шагом должен изменяться x, то возьмём цикл for, который на каждом шаге цикла будет увеличивать на единицу значение x. Началом и концом переменной цикла укажем границы промежутка.
Вывод оформим в два столбца просто пробелами. Отведём на вывод x два знака (:2), чтобы из-за изменения x столбцы не ползли.