Решить ! ) даны размеры комнаты. 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.