правильно ли??

[Babur4iK]

var S,t,r:real;
i,j,k:integer;
X:array[1..100]of real;
Y:array[1..100,1..100]of real;
begin
 
 
s:=0;
t:=0;
r:=0;
 
 
 
 
 
for k:=1 to 10 do
begin
write('x[',k,']=');
readln(x[k]);
end;
 
for i:=1 to 3 do
for j:=1 to 3 do
 
begin
write('y[',i,' ',j,']=');
readln(y[i,j]);
end;
 
for i:=1 to 3 do
begin
for j:=1 to 3 do
 
t:= t+sqrt(abs(sin(y[i,j])));
 
end;
 
 
for k:=1 to 3 do
begin
r:=r+exp(x[k]);
 
end;
 
S:=cos(r)/ln(t);
 
writeln('S=',s:8:4);
end.

[Stilet]

Babur4iK

Если твоя программа выдает верный результат значит ее можно считать правильной.