Вдекартовой системе координат задана окружность радиуса r1 с центром в начале координат и точка a(x,y). определить, лежит ли точка а внутри окружности (уравнение круга

Var x,y,r:real;
begin
      writeln('Введите x,y,r через пробел:');
      readln(x,y,r);
      if sqr(x)+sqr(y)<=sqr(r) then writeln('Лежит внутри') else writeln('Находится вне круга');
end.