Вычислить 7 значений функций ( Задача номер 2) - Pascal

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

Вычислить 7 значений функций Где начальное значение а=0,14х, а шаг ∆а=0,22

Решение задачи: «Вычислить 7 значений функций ( Задача номер 2)»

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

const n=7;
      da=0.22;
var a,x,a1,y:real;
    i:byte;
begin
write('x=');
readln(x);
a:=0.14*x;
for i:=0 to n-1 do
 begin
  a1:=a+i*da;
  y:=(0.15*x+a1)/(a1*a1+x*x);
  writeln(i+1,' x=',x:5:2,' a=',a1:5:2,' y=',y:5:2);
 end;
end.

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

Объявление и инициализация константы:
- n = 7 (целочисленное значение)
Объявление переменных:
- da = 0.22 (вещественное значение)
- a, x, a1, y - вещественные переменные
- i - переменная типа byte
Ввод значения переменной x:
- Пользователь вводит значение переменной x
Выполнение цикла for:
- Цикл выполняется для i от 0 до n-1 (6 раз)
- В каждой итерации:
  - Вычисляется новое значение a1 как a+i*da
  - Вычисляется новое значение y как (0.15*x+a1)/(a1*a1+x*x)
  - Выводится результат в формате:
  - i+1 (номер итерации)
  - x (значение x с точностью до двух знаков после запятой)
  - a1 (значение a1 с точностью до двух знаков после запятой)
  - y (значение y с точностью до двух знаков после запятой)