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

Спасибо большое

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