дано целое число.Напишите программу,которая уменьшает на 2 модуль этого числа и выводит на экран монитора результат
Qbasic
===============
CLS
INPUT x
IF x <> FIX(x) THEN
ELSE
x = sqr(x)
x = x/2
PRINT x
END IF