VAR
 n:Byte;
 X,Y,Z:Array[1..255] of Real;
 XL,YL,ZL,S,P:Real;
 i:Byte;
 BX,BY,BZ:Boolean;
BEGIN
 Write('Number of dimensions (<256) = ');
 ReadLn(n);
 WriteLn('Enter the coordinates:');
 For i:=1 to n do
  begin
   Write('X[',i:3,']= ');
   ReadLn(X[i]);
  end;
 WriteLn;
 For i:=1 to n do
  begin
   Write('Y[',i:3,']= ');
   ReadLn(Y[i]);
  end;
 WriteLn;
 For i:=1 to n do
  begin
   Write('Z[',i:3,']= ');
   ReadLn(Z[i]);
  end;
 WriteLn;
 BX:=false;
 BY:=false;
 BZ:=false;
 If X[1]=Y[1]+Z[1] then
  begin
   BX:=true;
   i:=1;
   repeat
    inc(i);
    if X[i]<>Y[i]+Z[i] then BX:=false;
   until (BX=false) or (i=n);
  end;
 If Y[1]=X[1]+Z[1] then
  begin
   BY:=true;
   i:=1;
   repeat
    inc(i);
    if Y[i]<>X[i]+Z[i] then BY:=false;
   until (BY=false) or (i=n);
  end;
 If Z[1]=X[1]+Y[1] then
  begin
   BZ:=true;
   i:=1;
   repeat
    inc(i);
    if Z[i]<>X[i]+Y[i] then BZ:=false;
   until (BZ=false) or (i=n);
  end;
 IF BX or BY or BZ then
  begin
   XL:=0;
   YL:=0;
   ZL:=0;
   for i:=1 to n do
    begin
     XL:=XL+SQR(X[i]);
     YL:=YL+SQR(Y[i]);
     ZL:=ZL+SQR(Z[i]);
    end;
   XL:=SQRT(XL);
   YL:=SQRT(YL);
   ZL:=SQRT(ZL);
   P:=(XL+YL+ZL)/2;
   S:=SQRT(P*(P-XL)*(P-YL)*(P-ZL));
   WriteLn('Vectors form the triangular with S= ',S:10:3);
  end else
   WriteLn('Vectors do not form the triangular');
 ReadLn;
END.