Протабулировать функцию у=5+х, на интервале [-6;6] с шагом 3. - Pascal

Протабулируйте функцию у=5+х, на интервале [-6;6] с шагом 3.

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

var x,y,i:integer;
begin
x:=-6;
repeat
y:=5+x;
writeln('x=',x:2,' y=',y:2);
x:=x+3;
until x>6;
end.

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

Объявление переменных:
- x - целочисленная переменная, используется для хранения значения аргумента функции
- y - целочисленная переменная, используется для хранения значения функции
- i - целочисленная переменная, но не используется в данном коде
Присвоение начального значения переменной x:
- x присваивается значение -6
Цикл repeat...until:
- Пока x меньше или равен 6 выполняются следующие действия:
  1. Рассчитывается значение функции для текущего значения x:
    - y присваивается значение 5 + x
  2. Выводятся значения x и y в определенном формате:
    - Выводится строка с текущими значениями x и y с отступом в 2 символа для каждого значения
  3. Значение x увеличивается на 3:
    - x увеличивается на 3
Конец программы.