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) <span>end.</span>