Программа на Pascal

[basten]

Нужно написать программу которая при вводе двух чисел(x,y), определяет находится ли координата в площади круга. Вот рисунок для ясности Имеется круг, с точкой в центре, с координатам (1,1), радиус круга 2. Заранее искреннее спасибо.

[Stilet]

Если не ошибаюсь:

x:=x+cx; {Это корректировка на центр круга}
y:=y+cy;{Это корректировка на центр круга}
if sqrt(x*x+y*y)<=R then находится

[basten]

Stilet не работает при вводе 1 и 1 программа молчит, по сути должна вывести сообщение что находится

[D@rkD@iver]

if sqrt((x-1)^2+(y-1)^2)<=R then находится

[basten]

D@rkD@iver сенк заработало)), 1-е при вводе координат 1 и 1 ошибка 200;
Runtime error 200 at $0804811A
$0804811A
$08069AA7
как можно исправить?:-)заранее спасибо

[baster128]

Весь код дай посмотреть...

[basten]

вот код:

uses crt;
  var x,y,R : real;
 begin
   clrscr;
  R:=2;
   read(x,y); 
 
 if sqrt(exp(2*ln(x-1))+exp(2*ln(y-1)))<=R then write ('naxoditsya') else writeln('ne naxoditsya');
 
readkey;
end.