Дано задание «Составьте программу, определяющую…

Дано задание «Составьте программу, определяющую, лежит ли точка суказанными координатами X, Y на окружности радиуса R с центром в начале координат." я ее составил но почему у меня всегда получается что точка не лежит на окружности хотя она лежит. Может я где то ошибся? var x,y,r: integer; BeginWrite ('Введите координату X: '); Readln (x); Write ('Введите координату Y: '); Readln (y); Write ('Введите длину радиуса R: '); Readln (r); If (sqr (x)+sqr (y)=r then writeln ('Точка лежит на окружности! ') Else writeln ('Точка не лежит на окружности! '); End.