Составьте программку, определяющую, лежит ли точка суказанными координатами X, Y на

Составьте программку, определяющую, лежит ли точка с
обозначенными координатами X, Y на окружности радиуса R с центром в
начале координат.




Program Frankenstein;


var


x,y,r:integer;


Begin


Write('Введите координату X: ');


Readln(x);


Write('Введите координату Y: ');


Readln(y);


Write('Введите длину радиуса R: ');


Readln(r);


If (sqr(x)+sqr(y))=r
then writeln('Точка лежит на
окружности!')


Else writeln('Точка не лежит на
окружности!');




End.



Почему программка всегда указывает что точка не лежит на окружности, хотя на самом деле она лежит! Где я ошибся?