Вычислить 7 значений функций - Pascal

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

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

Решение задачи: «Вычислить 7 значений функций»

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

const n=7;
      da=0.22;
var a,x,a1,b,z:real;
    i:byte;
begin
write('x=');
readln(x);
a:=0.14*x;
for i:=0 to n-1 do
 begin
  a1:=a+i*da;
  z:=a1*a1-x*x;
  if(z<=0)or(z=1)then writeln(i+1,' x=',x:5:2,' a=',a1:5:2,' b не определено')
  else
   begin
    b:=(0.15*x-a1)/ln(z);
    writeln(i+1,' x=',x:5:2,' a=',a1:5:2,' b=',b:5:2);
   end;
 end;
end.

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

Объявляется константа n со значением 7;
Объявляется переменная da с типом даных real и значением 0.22;
Объявляются переменные a, x, a1, b, z с типом данных real;
Объявляется переменная i с типом данных byte;
Пользователь вводит значение переменной x;
Переменной a присваивается значение 0.14 умноженное на переменную x;
Происходит цикл for от 0 до n-1 (7-1);
В каждой итерации цикла переменной a1 присваивается значение a плюс i умноженное на da;
Переменной z присваивается значение квадрата переменной a1 минус квадрат переменной x;
Если z меньше или равно 0 или равно 1, то выводится сообщение с номером итерации, значением x, a1 и сообщением b не определено;
Иначе, переменной b присваивается значение выражения (0.15 умножить на x минус a1) деленное на натуральный логарифм от z, и выводится сообщение с номером итерации, значением x, a1 и значением b.