Выдать на экран сообщение попадает ли в круг площадью 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*ylt;=r 
 then writeln(Точка попадет в круг)
 else writeln(Точка не попадет в круг);
end.

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