Нехай нам потрібно вирахувати довжину відрізка, заданого координатами своїх кінців. Позначимо координати початку відрізка x1 y1, а кінця – x2 y2. Довжину відрізка позначимо L.

Очевидно, що заданий відрізок – це гіпотенуза прямокутного трикутника, довжина якої обчислюється за теоремою Піфагора. Довжини катетів цього трикутника обчислюються як модуль різниці відповідних координат двох точок.

// Оголошуємо змінні величини та вказуємо їх типи
var x1, y1, x2, y2: integer;
            dX, dY: слово;
                 L: Real;

begin
 // Читаємо вихідні дані
 readln(x1, y1, x2, y2);
 // Обчислюємо довжини катетів
 dX: = abs(x1 - x2);
 dY := abs(y1 - y2);
 // Обчислюємо довжину гіпотенузи трикутника
 L := sqrt(sqr(dX) + sqr(dY));
 // Виводимо результат із точністю три знаки після коми
 writeln(L:0:3)
end.

Наведена вище програма є лінійною, оскільки всі команди виконуються у порядку їх записи.