Qbasic programming

To display 1,4,9,16,......10th term CLS I=1 WHILE I < =10 PRINT I ^2 I= I+1 WEND END