Протабулировать функцию в цикле for - Turbo Pascal

Формулировка задачи:

составить программу расчета и вывода на экран функции y=(x*x-1)/x для х от -15 до 15 с шагом 1

Решение задачи: «Протабулировать функцию в цикле for»

Листинг программы

uses crt;
var x,k:integer;
begin
clrscr;
k:=1;
for x:=-15 to 15 do
if x<2 then
if x=0 then writeln('x=  0  y не определено')
else writeln('x=',x:3,' y=',(x*x-1)/x:7:3)
else
 begin
  gotoXY(24,k);
  write('x=',x:3,' y=',(x*x-1)/x:7:3);
  k:=k+1;
 end;
readln
end.

Объяснение кода листинга программы

В начале кода подключается библиотека crt, которая является стандартной для языка Turbo Pascal.
Затем объявляются две переменные: x и k, которые имеют тип integer.
С помощью функции clrscr() очищается экран.
Переменная k инициализируется значением 1.
Затем начинается цикл for, который выполняется 20 раз.
В условии цикла указано, что переменная x должна быть в диапазоне от -15 до 15.
Если значение переменной x меньше 2, то выводится сообщение x= 0 y не определено.
Если значение переменной x равно 0, то выводится сообщение x= 0 y не определено.
В остальных случаях выводится сообщение x=, за которым следует значение переменной x, затем знак равенства, значение переменной x, деленное на само себя, и знак равенства, и, наконец, значение переменной k.
После вывода сообщения переменная k увеличивается на 1.
Если значение переменной x равно 0, то с помощью функции gotoxy() перемещается курсор на позицию (24,k).
Затем с помощью функции write() выводится сообщение x=, за которым следует значение переменной x, знак равенства, значение переменной x, деленное на само себя, и знак равенства.
После этого переменная k увеличивается на 1.
Когда значение переменной x равно 0, цикл for завершается.
С помощью функции readln() происходит чтение ввода с клавиатуры.
И, наконец, с помощью функции endm() закрывается программа.