Даны 3 числа, возвести в Квадрат те из них которые положительные - QBasic

Формулировка задачи:

Даны 3 числа, возвести в Квадрат те из них которые положительные. (задачу решать только в QBASIK ). Заранее Спасибо.

Решение задачи: «Даны 3 числа, возвести в Квадрат те из них которые положительные»

Листинг программы

CLS
  INPUT "Vvedite pervoe chislo: ", A
  INPUT "Vvedite vtoroe chislo: ", B
  INPUT "Vvedite tret'e chislo: ", C
  IF A > 0 THEN A = A * A
  IF B > 0 THEN B = B * B
  IF C > 0 THEN C = C * C
PRINT "A ="; A
PRINT "B ="; B
PRINT "C ="; C

Объяснение кода листинга программы

CLS - очистка экрана
INPUTVvedite pervoe chislo: , A - ввод первого числа, переменная A используется для его хранения
INPUTVvedite vtoroe chislo: , B - ввод второго числа, переменная B используется для его хранения
INPUTVvedite tret'e chislo: , C - ввод третьего числа, переменная C используется для его хранения
IF A > 0 THEN A = A * A - если первое число больше нуля, то оно возводится в квадрат и присваивается переменной A
IF B > 0 THEN B = B * B - если второе число больше нуля, то оно возводится в квадрат и присваивается переменной B
IF C > 0 THEN C = C * C - если третье число больше нуля, то оно возводится в квадрат и присваивается переменной C
PRINTA =; A - вывод значения переменной A
PRINTB =; B - вывод значения переменной B
PRINTC =; C - вывод значения переменной C