Необходимо оклеить обоями комнату с заданными величинами длины и высоты стен. также заданы длина, ширина и цена одного рулона обоев. подсчитать суммарные расходы в денежном выражении.

Var a, b, c, m, l, s1, s, k:real;

begin

write ('Длина, ширина и высота комнаты: ');

readln (a, b, c);

write ('Длина, ширина и цена одного рулона: ');

readln (l, m, s1);

k:=2 * (a+b) * c/m/l;

if k-int (k) >0 then k:=k+1;

k:=int (k);

s:=s1*k;

writeln ('Потребуется рулонов: ', k);

writeln ('Стоимость покупки: ', s)

end.