кто помнит паскаль.
Нужно поправить тело программы(словил тупняк)

program variant;
var
x,a,d,q1,q2,i:real;
begin
write('введите x=');
readln(x);
a:=0.14*x;
begin
q1:=0.15*x-a;
q2:=ln(sqr(a)-sqr(x));
d:=q1/q2;
writeln('d=',d);
a:=a+0.22;
end;
end.

На картинке условия

program variant;var  x,a,d:real;  i:integer;begin  Write('введите x='); Read(x);  for i:=1 to 7 do begin    a:=0.14+0.22*(i-1);    d:=(0.15*x-a)/ln(a*a-x*x);    Writeln(a:4:2,d:16:9);    a:=a+0.22    endend.Примервведите x=0.0270.14     0.0342432200.36     0.1737236880.58     0.5276085210.80     1.7789501531.02   -26.1140685561.24    -2.8759842331.46    -1.924508518