ENJOY UR LIFE TODAY BECAUSE YESTERDAY HAS GONE TOMORROW MAY NEVER COME

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

1 1 2 1 2 3 1 2 3 4 5 1 2 3 4 5 CLS FOR I = 1 TO 5 FOR J = 1 TO I PRINT J; NEXT J PRINT 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 A = 1 B = 1 FOR I = 1 TO 10 C = A + B A= B B = C NEXT I END

CLS INPUT ''Enter any number''; N FOR I = 1 TO 10 PTINT 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 number''; F END

CLS INPUT ''Enter any number''; N FOR I = 1 TO N IF N MOD I = O 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 composite'' ELSE PRINT ''The given no is prime'' 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 given number is armstrong'' ELSE PRINT ''The given 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 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 ''Reverse digit''; 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 digit''; P END

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

CLS INPUT ''Enter any number''; N 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 IF N MOD 2 = 0 THEN PRINT ''The number is odd'' ELSE PRINT ''The given number is even'' END IF END

CLS INPUT ''Enter any number''; N IF N = 0 THEN PRINT ''Given number is positive''; ELSE IF N<0 THEN PRINT ''Given number is negative'' ELSE PRINT ''Given number is zero'' END IF 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 INPUT ''Enter breadth''; B INPUT ''Enter height''; H A = 2*H*L+B PRINT ''Area of 4 walls''; A END

CLS INPUT ''Enter length''; L A = L 2 PRINT ''Area of square=''; A END

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

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

CLS INPUT ''Enter length''; L INPUT ''Enter breadth''; B A = L * 5 PRINT '' Area of rectangle''; A END