Найти расстояние от точки (x; y) на плоскости до ближайшей точки единичного круга - Pascal ABC

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

Прошу помочь разобраться в данной теме. Как вообще решать данного типа задачи? Даны координаты точки на плоскости (x; y). Надо найти расстояние от точки (x; y) на плоскости до ближайшей точки единичного круга с центром в начале кординат.

Решение задачи: «Найти расстояние от точки (x; y) на плоскости до ближайшей точки единичного круга - Pascal ABC»

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

var x,y:real;
 begin  
  write('x,y=');readln(x,y);
  write('Расстояние: ');
  if sqrt(x*x+y*y)<=1 then writeln(0) else writeln(sqrt(x*x+y*y)-1:0:2)
 end.

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

Объявляются две переменные типа real: x и y.
Выводится приглашение пользователю ввести значения x и y.
Вычисляется расстояние от точки (x; y) до ближайшей точки единичного круга по формуле sqrt(xx+yy).
Проверяется условие sqrt(xx+yy)<=1. Если оно истинно, то выводится 0, иначе выводится sqrt(xx+yy)-1:0:2), где 0:0:2 - это формат записи числа с двумя знаками после запятой.
Конец программы.