Qbasic to print 1,4,9,16....10th term

Qbasic to print 1,4,9,16...10th term

CLS
FOR I = 1 TO 10
PRINT I ^ 2
NEXT I 
END