Протабулировать функцию - Pascal (80802)

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

составить программу вычисления множества значений функции y=x²+b для x изменяющегося от -10 до 10 с шагом 2, а значение b запрашивается. Очень срочно, заранее спасибо)

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

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

var i: integer;
    b: real;
begin
  write('b = ');
  readln(b);
  for i := -5 to 5 do writeln('y(', i * 2:3, ') = ', 4 * i * i + b:0:5);
  readln
end.

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

Объявляется переменная i типа integer для использования в цикле.
Объявляется переменная b типа real для хранения значения параметра функции.
Выводится текст b = с помощью процедуры write.
Программа ожидает ввод значения для переменной b с помощью процедуры readln.
Запускается цикл от -5 до 5, в котором происходит выполнение следующих действий:
- Вычисляется значение функции для заданного i и выводится результат с помощью процедуры writeln.
- Значение i умножается на 2, выравнивается до 3 знаков после запятой, затем используется в вычислении функции 4 i i + b, результат округляется до 5 знаков после запятой.
Программа ожидает ввод данных перед выходом с помощью процедуры readln. Программа просит пользователя ввести значение параметра b, после чего она вычисляет значение функции для различных значений переменной i и выводит результаты.