Опредилить принадлежность точки кругу

Задача: 

Даны координаты точки и радиус круга с центром в начале координат. Определить, принадлежит ли данная точка кругу.

Описание переменных: 
  • x, y, r - координаты точки и радиус круга;
  • r_xy - длина гипотенузы (расстояния от начала координат до точки).
Алгоритм решения задачи: 

Следует рассмотреть прямоугольный треугольник, один катет которого лежит на любой оси, а другой является перпендикуляром к этой оси из заданной точки. В этом случае длины катетов равны значениям x и y, а гипотенуза является отрезком, соединяющим начало координат с точкой. Если этот отрезок не больше радиуса круга, то делается вывод, что точка принадлежит кругу.

Длина гипотенузы находится по теореме Пифагора.

Программа на языке Паскаль: 

var
    x, y, r: real;
    r_xy: real;
 
begin
    write('x = '); readln(x);
    write('y = '); readln(y);
    write('R = '); readln(r);
 
    r_xy := sqrt(x*x + y*y);
 
    if r_xy <= r then
		writeln('The point belongs to the circle.')
	else
		writeln('The point does not belong to the circle.');
end.

Пример работы программы:

x = -1
y = 3
R = 1
The point does not belong to the circle