Выдать на экран сообщение попадает ли в круг площадью s с центром в начале координат точка с координатами х , у . , !

Var s,r,x,y:real;
begin
write('S = ');
readln(s);
write('x, y: ');
readln(x,y);
r:=s/pi;
if x*x+y*y<=r 
 then writeln('Точка попадет в круг')
 else writeln('Точка не попадет в круг');
end.

Пример:
S = 58
x, y: 2 3
Точка попадет в круг