{* Задача320 *}

REM basic

' Заданы координаты двух точек. Определите, лежат ли они на одной окружности с центром в начале координат.


INPUT "Введите координаты первой точки: ";x1,y1
INPUT "Введите координаты второй точки: ";x2,y2
If x1^2+y1^2=x2^2+y2^2  Then
PRINT "Точки лежат на одной окружности"
Else
PRINT "Точки не лежат на одной окружности"
End If
End