(решить через паскаль)определить,попадает ли точка а с координатами x и y внутрь круга с радиусом r.центр круга совпадает с началом координат

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

Пример:
x,y: 1 2
R: 3
Точка находится внутри круга