Уравнение плоскости в отрезках. Если плоскость не параллельна ни одной из координатных осей, вычислить объем тетраэдра, образованного заданной плоскостью и координатными осями. Если параллельна сообщить об этом — Pascal(Паскаль)

Program P3;

var
  A, B, C, X: integer;
  V: real;

procedure ctenie; { считываем информацию о точках пересечения }
begin
  writeln('Vvedite znachenie A (tochky peresecheniya s ploskostiyu X):');
  readln(A);
  writeln('Vvedite znachenie B (tochky peresecheniya s ploskostiyu Y):');
  readln(B);
  writeln('Vvedite znachenie C (tochky peresecheniya s ploskostiyu Z):');
  readln(C);
end;

function paralel(A, B, C: real): string;
{ определяем параллельна ли плоскость с координатными осями }
var
  g: string;
begin
  g := '';
  if A = 0 then
    g := g + 'X ';
  if B = 0 then
    g := g + 'Y ';
  if C = 0 then
    g := g + 'Z ';
  if (A <> 0) and (B <> 0) and (C <> 0) then
    g := 'no';
  paralel := g;
end;

begin
  ctenie;
  if paralel(A, B, C) = 'no' then
  begin
    V := (1 / 6) * (A * B * C);
    writeln('Obiem = ', V:0:2);
  end
  else
    writeln('Ploskosti parallelina s koordinatnymi osyami - ',
      paralel(A, B, C));
  readln;

end.