Ответ:

const

 a = 10;

 b = 20;

 c = 30;{размеры комнаты}

 a1 = 10;

 b1 = 5;{размеры рулона}

var

 s, k, x: integer;

begin

 s := a1 * b1;{площадь рулона}

 k := a * b;{площадь пола}

 x := k div s;

 k := b * c;{площадь двух стен}

 x += 2 * (k div s);

 k := a * c;{площадь двух других стен}

 x += 2 * (k div s);

 x := x * 4;{4 комнаты}

 writeln('нужно рулонов ', x);

end.