Задача 3. Написать программу, определяющую, лежит ли точка с

указанными координатами А (x, y) на окружности радиуса R с центром в начале

координат (может лежать на окружности, внутри окружности, вне окружности)

PS: Pascal (не турбо)

Всем буду благодарен!

Var

x, y, r: Iinteger;

Begin

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

Readln (x) ;

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

Readln (y) ;

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

Readln®;

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

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

End.