Nothing is impossible ,the word itself says that I m possible

CLS A = 5  FOR I = 1 TO 10 PRINT A  A = A + 5  NEXT I  END

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

CLS  FOR I = 1 TO 5   FOR J = 1 TO 10 PRINT J: NEXT J  PRINT  NEXT I  END 

CLS  FOR I = 1 TO 5 FOR J = 1 TO I  PRINT I: NEXT J   PRINT NEXT  I END 

CLS  A = 1 FOR I = 1 TO 5 PRINT A A = A* 10 + 1 NEXT I  END

CLS A = 1 B = 1 FOR I = 1 TO 10  C = A + B  A = B  B = C  NEXT I  END 

CLS  I = 1 WHILE I < = 10 PRINT I ^ 2  I = I + 1 WEND  END

CLS INPUT"Enter any  number";N A = N S = 0  WHILE N < > 0  R = N MOD 10  S = S* 10 + R N = N/ 10 WEND  IF A = S THEN  PRINT"The given no is armstrong" ELSE  PRINT" The given no is not armstong" END IF  END

CLS INPUT" Enter any  number";N IF N > 0 THEN  PRINT" The number is positive" ELSEIF N < 0 THEN PRINT" The number is negative" ELSE PRINT"The number is zero" END IF  END

CLS INPUT"Enter any number";A ,B , C IF A > B and B > C THEN  PRINT"The greatest number is";A  ELSE IF B > A and B > C THEN PRINT"The greatest number is "; B ELSE  PRINT"The greatest number is "; C END IF  END 

CLS  INPUT"Enter any number";N A = N  S = 0 WHILE N < > 0 R = N MOD 10 S = S * 10 + R N = N/ 10 WEND IF A = S THEN  PRINT"The given number is palindrome" ELSE PRINT"The given number is not palindrome" END IF  END 

CLS INPUT'Enter any number";N S = 0 WHILE N < > 0 R = N MOD 10  S = S * 10 + R N = N / 10 WEND  PRINT"Sum of reverse of digits=";S END

CLS INPUT" Enter any number":N FOR I = 1 TO 10 PRINT N : "X": I "=": N* I NEXT I END

CLS INPUT" Enter any number";N F = 1 FOR I = 1 TO N F = F* I NEXT I PRINT" Factorial=";F END

CLS INPUT" Enter any number";N FOR I = 1 TO N IF N MOD I = 0 THEN PRINT I NEXT I END

CLS INPUT"Enter any number";N C = 0 FOR I = 1 TO N IF N MOD I = 0 THEN C = C + 1 NEXT I IF C = 2 THEN PRINT" The given no is prime" ELSE PRINT"The given no is composite" END IF  END

CLS INPUT"Enter any number";N S = 0 WHILE N< > 0 R = N MOD 10 S = S + R N = N/ 10 WEND PRINT"Sum of digits=";S END

CLS INPUT" Enter any number";N IF N MOD 2 = 0 THEN PRINT"The number is even" ELSE PRINT" The number is odd" END IF  END

CLS INPUT" Enter length";l INPUT" Enter breadth";b A=l*b PRINT"Area of rectangle=";A END

CLS INPUT" Enter radius";r INPUT" Enter height";h V=22/7*r^2*h PRINT"Volume of cylinder=";V END

CLS INPUT"Enter length";l V=l^3 PRINT"Volume of cube=";V END

CLS INPUT"Enter length";l INPUT"Enter breadth";b INPUT"Enter height";h V=l*b*h PRINT"Volume of box=";V END

CLS INPUT"Enter length";l A=l^2 PRINT"Area of square=";A END

CLS INPUT"Enter length";l INPUT"Enter breadth";b INPUT"Enter height";h A=2*h*(l+b) PRINT"Area of 4 walls=";A END

CLS INPUT"Enter radius";r A=22/7*r^2 PRINT"Area of circle=";A END

CLS INPUT"Enter base";b INPUT"Enter height";h A=1/2*b*h PRINT"Area of triangle=";A END