WAP to find the cost of painting the four walls of a room

Question
Write a program to find the cost of painting the four walls of a room.

Ans:    

      CLS

      INPUT "Enter length of the room";l

      INPUT "Enter breadth of the room"; b

      INPUT "Enter height of the room"; h

      INPUT "Enter the cost of painting"; c

      LET a = (2 * (l+b))*h

      LET t = c * a

      PRINT "The total cost of painting:" ; t

      END