program paint;
uses crt;

{--------------------------------------------------------------------------

Computes the amount of paint needed to paint a room.
                        by 

--------------------------------------------------------------------------}


VAR l,w,h,area1,area2,cans:real;

begin

clrscr;
write ('What is the length of the room you want to paint, in feet? --->  ');
readln (l);

writeln;
write ('What is the width of the room, also in feet? --->  ');
readln (w);
writeln;

write ('And finally, what is the height of the walls? --->  ');
readln (h);

area1 := l * h * 2;
area2 := w * h * 2;
area2 := area1 + area2;
cans := area2 / 250    ;

writeln;
writeln;
writeln ('If a can of paint covers about 250 square feet, then you will need');
writeln ('about ',cans:0:2,' 1 gallon cans of paint.');

readln;

end.