решение задачи в Pascal - Проверить принадлежность точки с заданными координатами кругу с заданным радиусом и координатами центра

[Екатерина23]

Проверить принадлежность точки с заданными координатами кругу с заданным радиусом и координатами центра (система координат – декартовая).

[Serge_Bliznykov]

var r, x0, y0, x, y : real;
begin
  WriteLn('Введите радиус: '); Readln(r);
  WriteLn('Введите координаты центра круга (x0,y0): '); Readln(x0,y0);
  WriteLn('Введите координаты точки (x,y): '); Readln(x,y);
  if (sqr(x-x0) + sqr(y-y0))<=sqr(r) then
    WriteLn('Принадлежит')
  else
    WriteLn('Не принадлежит');
  Readln
end.