QBasic to display greater among three number

CLS
INPUT"Enter any number";N
IF A>B and B>C THEN
PRINT"Greater number is";A
ELSE IF B>A and B>C THEN
PRINT"Greater number is";B
ELSE
PRINT"Greater number is";C
END IF 
END

QBasic to dislpay odd or even

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

QBasic to dislpay positive,Negative or Zero

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

QBasic to find volume of cylinder

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

QBasic to find volume of cube

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

QBasic to find volume of box

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

QBasic to find area of 4 walls

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

QBasic to find area of square

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

QBasic 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

QBasic to find area of circle

CLS
INPUT"Enter  radius";R
C=22/7*R^2
PRINT"Area of circle".
END

QBasic to find area of rectangle

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