▪︎WAP to find area of circle.

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

▪︎WAP to find Reverse digits.

-> 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

▪︎WAP to display 1,12,123,1234,12345.

->CLS 
FOR I = 1 TO 5
FOR J = 1 TO I
PRINT J ;
NEXT J
PRINT 
NEXT I
END

▪︎WAP to display 1,1,2,3,5...10th term.

-> CLS
FOR I = 1 TO 5
FOR J = 1 TO I
NEXT I ;
NEXT J
PRINT
NEXT I 
END

▪︎WAP 5,10,15,20...10th term

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

▪︎WAP to print.1,4,9,16...10th term.

-> CLS

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

▪︎WAP to print 1,11,111,1111,11111.

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

▪︎WAP to print 1,22,333,4444,55555

->CLS
FOR I = 1 TO 5
FOR J = 1 TO I
PRINT I;
NEXT J
PRINT
NEXT I
END

▪︎WAP to display multiplication table.

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

▪︎WAP to display factors.

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

▪︎WAP to check factorial.

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

▪︎WAP to check prime or composite.

-> 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

▪︎WAP to check palindrome or not.

-> 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

▪︎WAP to check Armstrong or not.

-> 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

▪︎WAP to find Product of Digits.

-> 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

▪︎ WAP to find sum of digits.

-> 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

▪︎WAP to print greatest among three number.

-> 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

▪︎WAP to display Odd or even.

-> 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

▪︎WAP to display Positive, Negative or zero.

-> 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

▪︎WAP to find Volume of cylinder.

-> CLS
INPUT "Enter the radius"; R
INPUT "Enter the height"; H
V =  22/7*R^2*H
PRINT "Volume of cylinder="; V
END

▪︎WAP to find volume of cube.

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

▪︎WAP to find volume of box.

-> 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 

▪︎WAP to find area of square .

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

▪︎WAP to find Area of four walls.

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

▪︎WAP to find area of triangle.

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

▪︎WAP to find area of Rectangle.

-> CLS

INPUT "Enter length";L 

INPUT "Enter breadth";B 

A= L*B

PRINT "Area of rectangle"; A

END