Определить лежат ли точки на одной окружности с центром в точке О - Pascal ABC

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

Заданы координаты двух точек. Определить лежат ли они на одной окружности с центром в точке О(х0, у0).

Решение задачи: «Определить лежат ли точки на одной окружности с центром в точке О»

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

var x1,y1,x2,y2,x0,y0,r1,r2:integer;
.........................................
r1:=sqr(x1-x0)+sqr(y1-y0);
r2:=sqr(x2-x0)+sqr(y2-y0);
if r1=r2 then write('Yes')
else write('No');

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

Переменные x1, y1, x2, y2 представляют координаты двух точек.
Переменные x0, y0 представляют координаты центра окружности.
Переменная r1 представляет значение радиуса окружности для первой точки.
Переменная r2 представляет значение радиуса окружности для второй точки.
Вычисляется расстояние между каждой парой точек и центром окружности с помощью формулы sqrt((x1-x0)^2+(y1-y0)^2).
Если r1 и r2 равны, то выводится строка Yes, иначе выводится строка No.