Always try but never cry

CLS   FOR I = 1 TO 5 FOR J = 1 TO I PRINT J ; 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 = 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 I NEXT I ; NEXT J PRINT NEXT I  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 number is prime" ELSE PRINT "The number is composite" END IF end

CLS INPUT 'Enter any number'; N A = N S = 0 WHILE N <> 0 R = N MOD 10 S = S+R^3 N = N\10 WEND IF A=S THEN PRINT "The number is armstrong" ELSE PRINT "The number is not armstrong" 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 number is palindrome" ELSE PRINT "The 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 "Reverse of digits="; S END

CLS INPUT "Enter any number'; N P = 1 WHILE N<> 0 R = N MOD 10 P = P*R N = N\10 WEND PRINT "Product of digits="; P 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 three number"; A, B, C IF A>B AND A>C THEN PRINT "The greates number is"; A ELSEIF 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 IF N MOD 2 = 0 THEN PRINT "The number is even" ELSE PRINT "The number is odd" 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 the radisu"; R INPUT "Enter the height"; H V =  22/7*R^2*H PRINT "Volume of cylinder="; V ENDwap to

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

CLS INPUT "Enter the length"; L INPUT "Enter the breadth": B INPUT "Enter the height"; H V = L*B*H PRINT "Volume of box="; V END 

CLS INPUT "Enter the length"; L INPUT "Enter the breadth"; B INPUT "Enter the height"; H A = 2*H*(L+B) PRINT "Area of four walls="; A END

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

ClS INPUT "Enter base"; B INPUT "Enter height"; H A = 1/2*B*H PRINT "Area of triangle="; A END

CLS INPUT "Enter the radius"; R A = 22/7*R^2 PRINT "Area of circle="; A End

CLS INPUT"enter length";L INPUT"enter breadth";B A=L*B PRINT"area of rectangtle";a end