Ребят помогите решить задачу!)
Даны размеры комнаты.
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.