Pascal задача на проверку условия

[werser]

Задача состоит в следующем: Проверить входил ли точка заданая двумя кординатами в окружность. Если извесно радиус и то что центр окружности находитса в точке (0:0)

Помогите пожалуйста срочно нада

[Sazary]

Нужно вычислить длину отрезка и сравнить ее с радиусом. Вот:

program tochka;
uses crt;

var
x,y,r : real;

begin
clrscr;
write('x= ');
readln(x);
write('y= ');
readln(y);
write('r= ');
readln(r);
if sqrt(sqr(x)+sqr(y)) <= r then
 writeln('YES')
 else writeln('NO');

readln;
end.