Составить программу на q-basic для вычисления квадратов натурального ряда чисел от 1 до 15.

CLS
FOR I = 1 TO 15    
   PRINT I ^ 2;
NEXT

DIM B AS INTEGER, S AS INTEGER
FOR B = 1 TO 15     
   S = B ^ 2
   PRINT S
NEXT B