if (0<a) and (0<b) and (0=c) and (0=A_) and (0=B_) and (0<C_) then … else
if (0<a) and (0=b) and (0<c) and (0=A_) and (0<B_) and (0=C_) then … else
if (0=a) and (0<b) and (0<c) and (0<A_) and (0=B_) and (0=C_) then … else

if (0<a) and (0<b) and (0=c) and (0<A_) and (0=B_) and (0=C_) then … else
if (0<a) and (0<b) and (0=c) and (0=A_) and (0<B_) and (0=C_) then … else
if (0<a) and (0=b) and (0<c) and (0<A_) and (0=B_) and (0=C_) then … else
if (0<a) and (0=b) and (0<c) and (0=A_) and (0=B_) and (0<C_) then … else
if (0=a) and (0<b) and (0<c) and (0=A_) and (0<B_) and (0=C_) then … else
if (0=a) and (0<b) and (0<c) and (0=A_) and (0=B_) and (0<C_) then … else

if (0<a) and (0=b) and (0=c) and (0=A_) and (0<B_) and (0<C_) then … else
if (0=a) and (0<b) and (0=c) and (0<A_) and (0=B_) and (0<C_) then … else
if (0=a) and (0=b) and (0<c) and (0<A_) and (0<B_) and (0=C_) then … else

if (0<a) and (0=b) and (0=c) and (0<A_) and (0<B_) and (0=C_) then … else
if (0<a) and (0=b) and (0=c) and (0<A_) and (0=B_) and (0<C_) then … else

if (0=a) and (0<b) and (0=c) and (0<A_) and (0<B_) and (0=C_) then … else
if (0=a) and (0<b) and (0=c) and (0=A_) and (0<B_) and (0<C_) then … else

if (0=a) and (0=b) and (0<c) and (0=A_) and (0<B_) and (0<C_) then … else     if (0=a) and (0=b) and (0<c) and (0<A_) and (0=B_) and (0<C_) then … else                                                                  
if (0<a) and (0<b) and (0<c) and (0=A_) and (0=B_) and (0=C_) then … else

if (0=a) and (0=b) and (0=c) and (0<A_) and (0<B_) and (0<C_) then begin
                writeln('Некоректні дані: задано лише кути.');  halt end else
begin
  writeln('Некоректні дані: потрібно було ввести 3 додатних числа і 3 нулі.');
  halt
end;