Составить алгоритм определения положения точки M(Xm,Ym) относительно окружности рад

Над найти расстояние от точки до центра окружности. Прще использовать квадрат расстояния. Если он равен квадрату радиуса, то точка на окружности. Если меньше, то внутри круга. Больше, то вне круга. var xm,ym,xc,yc,r:real; begin  writeln('Введите координаты точки Xm, Ym');  readln(xm,ym);  writeln('Введите координаты  центра окружности Xc, Yc');  readln(xc,yc);  writeln('Введите радиус окружности R');  readln(r);  if sqr(r)=sqr(xm-xc)+sqr(ym-yc) then writeln ('На окружности') else  if sqr(r)>sqr(xm-xc)+sqr(ym-yc) then writeln ('Внутри круга') else  writeln('Снаружи круга'); end. Тест №1 Введите координаты точки Xm, Ym 4 2 Введите координаты  центра окружности Xc, Yc 2 2 Введите радиус окружности R 2 На окружности Тест №2 Введите координаты точки Xm, Ym 3 1 Введите координаты  центра окружности Xc, Yc 2 2 Введите радиус окружности R 2 Внутри круга Тест №3 Введите координаты точки Xm, Ym -1 -3 Введите координаты  центра окружности Xc, Yc 2 2 Введите радиус окружности R 2 Снаружи круга