WAP to find area of rectangle

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