Вот чиво получилось,прога работает, о есть большие сомнения в формуле,если чиво неправильно,подскажите что исправить
program vektors;
var
x: array[1..10] of real;
y:array[1..10] of real;
z:array[1..10] of real;
k,j,i:integer;
BEGIN
writeln('Введите значение x');
for j:=1 to 10 do
read(x[j]);
writeln('Введите значение y');
for j:=1 to 10 do
read(y[j]);
writeln('Введите значение z');
for j:=1 to 10 do
read(z[j]);
for k:=2 to 10 do
for i:=1 to 10 do
for j:=k to 10 do
if (x[j]*x[i]+y[j]*y[i]+z[j]*z[i])/(sqrt(x[j]*x[j]+y[j]*y[j]+z[j]*z[j])*sqrt(x[i]*x[i]+y[i]*y[i]+z[i]*z[i]))=0 then
writeln(x[j]:5:2,y[j]:5:2,z[j]:5:2 );
write(' ',x[i]:5:2,y[i]:5:2,z[i]:5:2);
end.