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

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.