Вычислить модуль и угол наклона к оси ОХ вектора - Turbo Pascal

Формулировка задачи:

Вычислить модуль и угол наклона к оси ОХ вектора, соединяющего на плоскости две точки с координатами (х1, у1) и (х2, у2). Рассмотреть ситуации: 1) х1=0,6 х2=0,1 2) х1=2,6 х2=6,1 Заранее СПАСИБО!

Решение задачи: «Вычислить модуль и угол наклона к оси ОХ вектора»

Листинг программы

uses crt;
var
m, x1, x2, y1, y2, u: real;
begin
readln(x1, x2, y1, y2);
m:= arctan((y2-y1)/(x2-x1)); {Находим угол наклона вектора к оси OX}
u:=m*180/pi;  {Переводим угол из радиан в градусы}
write(u);
end.

Объяснение кода листинга программы

В начале объявляются все необходимые переменные: m, x1, x2, y1, y2, u.
Затем происходит чтение значений переменных x1, x2, y1, y2 с помощью функции readln.
Далее вычисляется угол наклона вектора к оси OX с помощью формулы arctan((y2-y1)/(x2-x1)).
Полученное значение угла наклона переводится в градусы с помощью формулы u := m * 180 / pi.
И наконец, полученное значение угла наклона выводится на экран с помощью функции write.