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

Над найти расстояние от точки до центра окружности. Прще использовать квадрат расстояния. Если он равен квадрату радиуса, то точка на окружности. Если меньше, то внутри круга. Больше, то вне круга.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, Ym4 2Введите координаты  центра окружности Xc, Yc2 2Введите радиус окружности R2На окружностиТест №2Введите координаты точки Xm, Ym3 1Введите координаты  центра окружности Xc, Yc2 2Введите радиус окружности R2Внутри кругаТест №3Введите координаты точки Xm, Ym-1 -3Введите координаты  центра окружности Xc, Yc2 2Введите радиус окружности R2Снаружи круга