Паскаль. СРОЧНО ;( Выяснить принадлежит ли точка (x;y) кругу единичного радиуса с центром в начале координат

var x,y:real;
begin
readln(x,y);
if sqr(x)+sqr(y) <= 1 then
writeln('Принадлежит')
else
writeln('Не принадлежит');
readln
end.

Подставь значения x и у В уравнение окружности:
x^2+y^2=1
Если получится что сумма квадратов x и y равна единице, то лежит, если нет, то не лежит.

(За синтаксис не ручаюсь, давно на Паскале не писал)

Function InCircle(double x, double y): bool
begin
if(x*x + y*y < 1.0) then
return true;
else
return false;
end;

Александр Петров, разницу между окружностью и кругом не знаешь?

Вот еще:
"Песни о Паскале" - программирование для школьников и начинающих.
Погуглите в паутине, скачивается бесплатно.

Круг-част плоскости, ограниченная окружностью. Окружность, в свою очередь, есть геометрическое место точек, равноудаленных от однй, называемойцентрм окружности.. Окружность единичного радиуса описывается уравнением в декартовой системе координат в виде:
х**2+у**2=1;
Точки внутри окружости удовлетворяют неравенству:
х**2+у**2<1;
Точки лежащие вне круга-уовлетвряют неавенству:
х**2+у**2>1
Отсюда и делаем вывод, что точка А (х, у) принадлежит кругу, если ее координаты удовлетвояют неравенству
х**2+у**<или=1
Далее пишите программу на своем Паскале
Ркв=х**2+у**
Если Ркв>1,то Печать (Точка А (х, у) не принадлежит кругу)
Если Ркв< или=1,то Печать (Точка А (х, у) принадлежит кругу)

Program One;
uses crt;
var
R,x,y: real;
Begin
Clrscr;
writeln ('Введите радиус R и и координаты точки (x,y)');
Readln(x,y);
if sqr(x)+sqr(y)<=(R)
then
writeln ('точка (x,y) принадлежит окружности с радиусом R')
else
writeln ('точка (x,y)не принадлежит окружности с радиусом R')
End.

Стучи в агент или пиши на мейл, помогу.