Напишите пожалуйста 2 программы в abc pascal
1.с клавиатуры вводится число вывести его модуль.
2.дана точка с координатами x1,y1 и точка с координатами x2,y2. Как располагается отрезок относительно осей координат

1.program z1;var q,w:real;beginwriteln('введите число');readln(q);w:=abs(q);writeln('модуль, введенного вами числа = ',w);end.2.program z1;var x1,x2,y1,y2:real;beginwriteln('введите координаты 1-й точки');readln(x1,y1);writeln('введите координаты 2-й точки');readln(x2,y2);if x1=x2 thenwriteln('отрезок перпендикулярен оси ОХ и параллелен оси ОY')elseif y1=y2 thenwriteln('отрезок перпендикулярен оси ОY и параллелен оси ОX')else writeln('отрезок располагается под углом к осям');end.