Ребят помогите решить задачу!)

Даны размеры комнаты.

1) Найти сколько рулонов обоев нужно для поклейки стен (ширина 1 м, длина 10 м). В комнате 3 окна, одно окно площадью 2 м^2, одна дверь площадью 3 м^2.

2) Вычислить сколько метров необходимо для покрытия пока, если ширина линолиума 1.5 м^2. Сколько денег заплатили за обои и за линилиум?. Цена одного рулона и 1 м^2 линолиума вводится с помощью клавиатуры. (Packal)

Program oboiilinoleum;

var a, b, h, wa, wb, o, l, co, cl:integer;

begin

write ('Введите длину комнаты') ;

readln (a) ;

write ('Введите ширину комнаты') ;

readln (b) ;

write ('Введите высоту комнаты') ;

readln (h) ;

write ('Введите стоимость одного рулона обоев') ;

readln (o) ;

write ('Введите стоимость одного рулона линолеума') ;

readln (l) ;

co: = (2 * (a*h + b*h) - 6 - 3) / 10;

cl:=trunc (a*b/1.5) ;

writeln ('Количество рулонов, необходимое для поклейки стен комнаты: ', co) ;

writeln ('Для покрытия пола линолеумом необходимо ', cl, ' метров линолеума') ;

writeln ('За линолеум нужно заплатить ', cl*l, ', а за обои - ', co*o) ;

end.