Q.1) WAP to find the area of rectangle.

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

Q.2) WAP to find the area of square.

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

Q.3) WAP to find the area of circle.

=> CLS
       INPUT "Enter radius"; R
      CONST PI =22/7
      A = PI * R ^2
      PRINT "Area of circle = "; A
      END

Q.4) WAP to  find the area of triangle.
=> CLS
      INPUT "Enter base"; B
      INPUT "Enter height"; H
      A = 1/2 * B * H
      PRINT "Area of triangle = "; A
      END

Q.5) WAP to find the area of parallelogram.
=> CLS
       INPUT "Enter base"; B
      INPUT "Enter height"; H
      A = B * H
      PRINT "Area of parallelogram "; A
      END

Q.6) WAP to check whether the number is divisible by 3 and 7 or not.
=> CLS
      INPUT "Enter any number"; A
      R1 = A MOD 3
      R2 = A MOD 7
      IF R1 = 0 AND R2 = 0 THEN
      PRINT "Number is divisible by 3 and 7"
      ELSE
      PRINT "Number is not divisible by 3 and 7"
      END IF
      END

Q.7)  WAP to check whether the given number is positive/ negative/ zero.
=> CLS
      INPUT "Enter any number"; A
      IF A >0 THEN
      PRINT "Number is positive"
      ELSEIF A <0 THEN
      PRINT "Number is negative"
      ELSE
      PRINT "Number is zero"
      END IF
      END

Q.8) WAP to check whether the number is odd or even.
=> CLS
      INPUT "Enter any number" ; A
      R = A MOD 2
      IF R = 1 THEN
      PRINT "Number is odd"
      ELSE
      PRINT "Number is even"
      END IF
      END

Q.9) WAP to enter any 3 numbers and find the smallest one.
=> CLS
      INPUT "Enter any three numbers" ; A, B, C
      IF A< B AND A< C THEN
      PRINT A ; " is the smallest number."
      ELSEIF B<A AND B<C THEN
      PRINT B ; " is the smallest number."
      ELSEIF C<A AND C<B THEN
      PRINT C ; " is the smallest number."
      ELSE
      PRINT "All the numbers are equal."
      END IF
      END

Q.10) WAP to enter name and percentage and print the name, percentage and the division passed in.
=> CLS
      INPUT "Enter name"; N$
      INPUT "Enter percentage"; P
      IF P>= 80 AND P<=100 THEN
      D$ = "Distinction"
      ELSEIF P>= 60 AND P<=69.9 THEN
      D$ = "First Division"
      ELSEIF P>=50 AND P<= 59.9 THEN
      D$ = "Second Division"
      ELSEIF P>=40 AND P<=49.9 THEN
      D$ = "Third Division"
      ELSEIF P<40 THEN
      D$ = "Failed"
      ELSE
      D$ = "Wrong Entry"
      END IF
      PRINT "Name", "Percentage", "Division"
      PRINT N$, P, D$
      END

In the topic mothers day

My mother biodata:-
My mother name is bimala shrestha. She is 46 years old. She is very stick but clear from heart. She is loved by every elder person and she is the most loveable person in our neighborhood. She is very kind and helpful. 

Poem on mother:-

Programming)1. WAP to find the are of four walls.=> CLS     INPUT "Enter length"; l     INPUT "Enter breadth"; b     INPUT "Enter height"; h     A = 2 * h* (l + b)     PRINT "Area of four walls = "; A     END
2. WAP to display are of triangle.=> CLS     INPUT "Enter height"; h     INPUT "Enter base"; b     A =1/2 * b * h     PRINT "Area of triangle = "; A     END
3. WAP to display area of parallelogram.=> CLS     INPUT "Enter base"; b     INPUT "Enter height"; h     A = b * h     PRINT "Area of parallelogram = "; A     END
4. WAP to display volume of cylinder.=> CLS     INPUT "Enter radius of base "; b     INPUT "Enter height of cylinder" ; h     V = 22/7 * r ^ 2 * h     PRINT "Volume of cylinder ="; V     END
5. WAP to display TSA of sphere.=> CLS     INPUT "Enter radius" ; r     TSA = 4 * 22/7 * r ^ 2     PRINT "Total surface Area ="; TSA     END
6. WAP to display volume of sphere.=> CLS     INPUT "Enter radius"; r     V = 4/3 * 22/7 * r ^ 3     PRINT "Volume of sphere ="; V     END
7. WAP to display volume of hemisphere.=> CLS     INPUT "Enter radius"; r     V = 2/3 * 22/7 * r ^ 3     PRINT "Volume of hemisphere ="; V     END
8. WAP tp display TSA of cylinder.=> CLS     INPUT "Enter radius"; r     INPUT "Enter height" ; h     TSA = 2 * 22/7 * r * (r + h)     PRINT "Total Surface Area = "; TSA     END
9. WAP to display volume of cylinder.=> CLS     INPUT "Enter radius"; r     INPUT "Enter height"; h     V = 22/7 * r ^2 * h     PRINT "Volume of cylinder = "; V     END
10. WAP to check whether the given number is divisible by 5 or not.=> CLS     INPUT "Enter any number"; A     R = A MOD 5     IF R = 0 THEN PRINT "Number is divisible by 5" ELSE PRINT "Number is not divisible by 5"     END
11. WAP to check whether the given number is divisible by 4 and 5 or not.=> CLS     INPUT "Enter any number"; A     R1 = A MOD 4     R2 = A MOD 5     IF R1 = 0 AND R2 = 0 THEN PRINT "Number is divisible by 4 and 5" ELSE PRINT "Number is     not divisible by 4 and 5"     END
12. WAP to check whether the given number is a multiple of 10 or not.=> CLS     INPUT "Enter any number"; A     R = A MOD 10     IF R = 0 THEN PRINT "Number is a multiple of 10" ELSE PRINT "Number is not a multiple of        10"     END
13. WAP to check whether the given number is odd or even.=> CLS     INPUT "Enter any number"; A     R = A MOD 2     IF R = 0 THEN PRINT "Number is even" ELSE PRINT "Number is odd"     END
14. WAP TO check whether the given number is divisible by 7 or not.=> CLS     INPUT "Enter any number"; A     R = A MOD 7     IF R = 0 THEN PRINT "Number is divisible by 7" ELSE PRINT "Number is not divisible by 7"     END
15. WAP to check whether the given number is positive, negative or zero.=> CLS     INPUT "Enter any number"; A     IF A>0 THEN     PRINT A ; " is positive number"     ELSEIF A<0 THEN     PRINT A ; " is negative number"     ELSE     PRINT A ; " is zero"     END IF     END
16. WAP to display the greatest number among three numbers.=> CLS     INPUT "Enter any 3 numbers"; A, B, C     IF A>B AND A>C THEN     PRINT A ; "is greatest number"     IF B >A AND B>C THEN     PRINT B ; "is greatest number"     ELSE     PRINT C : " is greatest number"     END IF     END
17. WAP to display the smallest number among three numbers.=> CLS     INPUT "Enter any 3 numbers"; A, B, C     IF A<B AND A<C THEN     PRINT A ; "is smallest number"     IF B <A AND B<C THEN     PRINT B ; "is smallest number"     ELSE     PRINT C : " is smallest number"     END IF     END
18. WAP to enter secured percentage and display the division.=> CLS     INPUT "Enter secured percentage"; P     IF P>= 60 THEN     PRINT "You have passed in first division"     ELSEIF P>=50 AND P<=59.9 THEN     PRINT "You have passed in second division"     ELSEIF P>=40 AND P<=49.9 THEN     PRINT "You have passed in third division"     ELSE     PRINT "You have failed"     END IF     END
19. WAP to enter age and give advice accordingly.=> CLS     INPUT "Enter age"; A     IF A<15 THEN     PRINT "You are young, study hard"     ELSEIF A>=15 AND A<=30 THEN     PRINT "You are adult, work hard"     ELSEIF A>=31 AND A<=60 THEN     PRINT "You are mature, work slowly"     ELSE     PRINT "You are old, take rest"     END IF     ENDprogaramming-1 WAP to display area of rectangle.=> CLS     INPUT "Enter length" ; l     INPUT "Enter breadth" ; b     A = l * b     PRINT "Area of rectangle = "; A     END
2. WAP to display area of square.=>CLS    INPUT "Enter length" ; l    A = l ^ 2    PRINT "Area of square = " ; A    END
3. WAP to display area of circle.=>CLS    INPUT "Enter radius" ; r    A =  22/7 ^ 2    PRINT "Area of circle = " ; A    END
4. WAP to display perimeter of rectangle.=>CLS    INPUT "Enter length" ; l    INPUT "Enter breadth" ; b    P = 2 * (l + b)    PRINT "Perimeter of rectangle  = " ; P    END
5. WAP to display perimeter of square.=>CLS    INPUT "Enter length" ; l    P = 4 * l    PRINT "Perimeter of square = " ; P    END
6. WAP to find circumference of circle.=>CLS    INPUT "Enter radius" ; r    C = 2 * 22 / 7 * r    PRINT "Circumference of circle = "; C    END
7. WAP to find area and perimeter of rectangle.=>CLS    INPUT "Enter length" ; l    INPUT "Enter breadth " ; b    A = l * b    P = 2 * ( l + b )    PRINT "Area of rectangle = "; A    PRINT "Perimeter of rectangle = "; P    END
8. WAP to find area and perimeter of square.=>CLS    INPUT "Enter length" ; l    A = l ^ 2    P = 4 * l    PRINT "Area of square = "; A    PRINT "Perimeter of square = "; P    END
9. WAP to find area and circumference of circle.=>CLS    INPUT "Enter radius "; r    A = 22/7 * r ^ 2    C = 2 * 22/ 7 * r    PRINT "Area of circle = "; A    PRINT "Circumference of circle = "; C    END