const
n = 10;
type
dimen = array[1..n] of Real;
var
D,S: dimen;
i,j : Integer;
a,b,y,h,x,q,l: Real;
Procedure massiv;
begin
for i:=1 to n do
begin
D[i]:=a+(i-1)*h;
end;
for j:=1 to n do
begin
x:=a+(j-1)*h;
y:=sin(x)+1/x;
q:=exp(2*ln(cos((x*x*x)/((x*x)-4))));
l:=exp(2*ln(sin((x*x*x)/((x*x)-4))));
S[j]:=y/-(exp(1/3*ln(l/q)));
end;
end;
begin
WriteLn('a');
Readln(a);
WriteLn('b');
ReadLn(b);
h:=(b-a)/(n+1);
massiv;
for i:=1 to n do
Write(D[i]);
for j:=1 to n do
Write(S[j]);
end.
При вводе a=4 и b=6...выдает ошибку (плав. точка) в этой строке "l:=exp(2*ln(sin((x*x*x)/((x*x)-4))))" ...
Тормознул...в общем я тут))