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

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.