Даны три действительных числа. Возведите в квадрат те из них, значения которых неотрицательны — QBasic(Бейсик)

CLS
INPUT "Pervoe chislo="; a
INPUT "Vtoroye chislo="; b
INPUT "Tretye chislo="; c
IF a > 0 THEN a = a ^ 2
IF b > 0 THEN b = b ^ 2
IF c > 0 THEN c = c ^ 2
PRINT "a="; a; " b="; b; " c="; c