(Решить через паскаль)Определить,попадает ли точка А с координатами x и y внутрь круга с радиусом R.Центр круга совпадает с началом координат

var x,y,r:real;beginwrite('x,y: '); readln(x,y);write('R: '); readln(r);if x*x+y+y<r*r then writeln('Точка находится внутри круга') else writeln('Точка не находится внутри круга');end.Пример:x,y: 1 2R: 3Точка находится внутри круга