Попробуй вот так:
Quote (gunjubas)
Вычисление длины вектора оформить в виде процедуры.
Code
procedure Dlina(x1, x2, x3: real): real;
begin
Dlina:= sqrt(sqr(x1) + sqr(x2) + sqr(x3));
end;
Тело программы:
Code
var
a: boolean; // логическая переменная.
x1, x2, x3, y1, y2, y3, // координаты векторов.
s1, s2: real; // длины векторов.
begin
readln(x1, x2, x3); // ввели координаты первого вектора.
readln(y1, y2, y3); // ввели координаты второго вектора.
s1:= Dlina(x1, x2, x3);
s2:= Dlina(y1, y2, y3); // посчитали координаты векторов.
if s1 > s2 then
a:= True
else
a:= False;
readln;
