zadach172.BAS

{* Задача172 *}

REM basic

' Ввести число Х, если оно меньше нуля умножить его на (-1)
' и вывести Х на экран.


CLS
INPUT "Введите Х ", X           
   If X < 0 Then X = X * (-1)   
PRINT "X = "; X                       
End