нужно исправить ошибку

[Ania Lunee]

в конкретном случае (a>1/a) при а= 0 естественно ошибка деление на ноль, как этого избежать???

Uses CRT;
Var a,b: real;
begin
clrscr;
writeln('vvedite coordinati tichki a');Read(a,b);
if (a>1/a) and ((sqr(a)+sqr(b))<4)
then write ('Prinadlegit')
else write ('Ne Prinadlegit');
Readln;
readln;
end.

[Hacker19_90]

а собствеено в чём смысл

(a>1/a)

?

[Ania Lunee]

Сообщение от Hacker19_90

а собствеено в чём смысл

?

это функция 1/а
и мне нужно чтобы точка лежала по одну из сторон этой кривой

[Hacker19_90]

так

if a <> 0 then
  if a > 1/a then

[Ania Lunee]

Сообщение от Hacker19_90

так

if a <> 0 then
  if a > 1/a then

я дура
огромное спасибо))