Очень срочно Помогите плиз!!!

Написать программу табуляции функции у=1/х на отрезке [-2,2] с шагом 1 на языке Паскаль.

есть черновой вариант 

Program A; uses crt;  var x, y, n: real; begin clrscr; x:=-2; n:=2; writeln('----------------'); writeln (' x y '); writeln('----------------'); while x<=n do begin y:=1/x; writeln (x:3:0,y:8:2); x:=x+1; end; writeln('----------------'); writeln('Конец '); end.
На выходи выходит это 

куда уж меньше - одна

константы не переменные

с удовольствием рассматрю ваше решение если вы его выложите

константа - тоже переменная, только фиксированная и неизменяемая!

Паскалевский компилятор заменяет имя константы её значением, затем сворачивает константные выражения, и только потом генерирует код. Так что, никаких ячеек в оперативной памяти не используется, и обращений к ним тем более нет.