Напишите пожалуйста 2 программки в abc pascal1.с клавиатуры вводится число вывести

Pascal ABC

ну означает PascalABC.NET

1.
program z1;
var q,w:real;
begin
writeln('введите число');
readln(q);
w:=абс(q);
writeln('модуль, введенного вами числа = ',w);
end.

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