{* Задача178 *}

REM basic

' Рассчитать квадратный корень из Х. Если будет введено
' отрицательное значение Х, то сообщить об этом пользователю и предложить
' поменять знак переменной. Если пользователь откажется менять знак,
' то завершить про-грамму.


CLS
INPUT "Введите Х "; X
If X < 0 Then
   PRINT "Было введено отрицательное значение Х"
   INPUT "Поменять знак? 0 - Да, другое число - Нет ", Answ
       If Answ = 0 Then X = X * (-1) Else End
End If
PRINT "Корень из Х "; SQR(X)
End