Составьте программу, определяющую, лежит ли точка с указанными координатами 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. почему программа всегда показывает что точка не лежит на окружности, хотя на самом деле она лежит! где я ошибся?