Qbasic programming

To display 1,4,9,16,......10th term

CLS

I=1

WHILE I < =10

PRINT I ^2

I= I+1

WEND

END