{Уравнение плоскости в отрезках.
Если плоскость не параллельна ни одной из координатных осей, вычислить объем тетраэдра,
образованного заданной плоскостью и координатными осями. Если параллельна сообщить об этом.}
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.