Код
readln(a, b, c);
if (a<>0) or (b<>0) then
begin
  if a=0 then
    writeln(0)
  else
    writeln(pi/2+arctan(b/a));
  if c=0 then
    writeln('Прямая пересекает начало координат');
end;

Если a=0 и c<>0, то прямая не пересекает Ox, а если a=0 и с=0, то лежит на Ox.