На плоскости расположена окружность радиуса R с центром в начале координат. Ввести заданные координаты точки и определить лежит ли она на окружности. Результат присвоить символьной переменной. Решить задачу при R=2 для точек с координатами (0;2),(-1,5;0,7),(1;1), (3;0). Составить блок схему

//PascalABC.Netvar  r,x,y:real;  c:string;begin  Write('Введите R: '); Read(r);  Write('Введите координаты x и y: '); Read(x,y);  if sqr(x)+sqr(y)=sqr(r) then c:='Точка лежит на окружности'  else c:='Точка не лежит на окружности';  Writeln(c)end.Тестовые решения:Введите R: 2Введите координаты x и y: 0 2Точка лежит на окружностиВведите R: 2Введите координаты x и y: -1.5 0.7Точка не лежит на окружностиВведите R: 2Введите координаты x и y: 1 1Точка не лежит на окружностиВведите R: 2Введите координаты x и y: 3 0Точка не лежит на окружностиБлок-схема во вложении