// PascalABC.NET 3.2, сборка 1399 от 08.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var A,B,C,D,E,F:real;
  Writeln('Введите коффициенты A B C D E F');
  Read(A,B,C,D,E,F);
  var p:=A*D+B*E;
  if p=0 then Writeln('Прямые перпендикулярны')
  else begin
    var t:=arctan((A*E-D*B)/p);
    Writeln('Угол между прямыми в градусах ',RadToDeg(t):0:2)
    end
end.

Пример
Введите коффициенты A B C D E F
2.5 -1.5 7.1 -3.2 1.45 0.15
Угол между прямыми в градусах 6.59

Замечание: коэффициенты C,F в программе не используются и их можно вообще удалить из её текста.

// PascalABC.NET 3.2, сборка 1399 от 08.03.2017

begin
  var x,y:real;
  Write('Введите x y: '); Read(x,y);
  if x*y<>0 then Writeln('Точка М не лежит на осях координат')
  else begin
    if x=0 then
      if y=0 then Writeln('Точка М лежит в начале координат')
      else
        if y>0 then
          Writeln('Точка М лежит на положительном участке оси ординат')
        else
          Writeln('Точка М лежит на отрицательном участке оси ординат')
    else
      if x=0 then Writeln('Точка М лежит в начале координат')
      else
        if x>0 then
          Writeln('Точка М лежит на положительном участке оси абсцисс')
        else
          Writeln('Точка М лежит на отрицательном участке оси абсцисс')
    end     
end.

Пример
Введите x y: 1.37 0
Точка М лежит на положительном участке оси абсцисс