BEGIN
write('Введите координату X: ');
readln(x);
write('Введите координату Y: ');
readln(y);
write('Введите длину радиуса R: ');
readln®;
if (sqr(x)+sqr(y))=sqr® then writeln('Точка лежит на окружности!')
else writeln('Точка не лежит на окружности!');
END.