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

var a,b,c,m,l,s1,s,k:real;beginwrite('Длина, ширина и высота комнаты: ');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.