Код
if (b=0) and (c=0) or (b<>0) and (c=0) then
begin
Writeln('Pryamaya prohodit cherez nachalo koordinat');
writeln('ugol raven ');
writeln('Rad=',pi/2+arctan(b/a));
writeln('Gr=',(((pi/2+arctan(b/a)))/180));
end
else
begin
writeln('ugol raven ');
writeln('Rad=',pi/2+arctan(b/a));
writeln('Gr=',(((pi/2+arctan(b/a)))/180));
end;

Проверьте, пожалуйста?.. а то как-то там совсем даже не получается, что при b=0 угол равен 90 градусам..