Ввести с клавиатуры 10 чисел. Если квадрат числа меньше 100 , напечатать число и его квадрат Программа QBasic

CLS  PRINT" Введите 10 чисел "   FOR i=1 TO 10 INPUT  A IF (A*A)<100 THEN PRINT A :PRINT "   ":  PRINT (A*A) NEXT I END