uses crt;
function rulon(aa,bb,cc,drr,srr:real):real;
 begin
  rulon:=(2*cc*(aa+bb))/(drr*srr);
 end;
var a,b,c,dr,sr,k:real;
begin
clrscr;
Write('Ведите ширину комнаты:');
readln(a);
Write('Ведите длину комнаты:');
readln(b);
Write('Ведите высоту комнаты:');
readln(c);
Write('Ведите длину рулона:');
readln(dr);
Write('Ведите ширину рулона:');
readln(sr);
k:=rulon(a,b,c,dr,sr);
if k<>trunc(k) then k:=trunc(k)+1;
Writeln('Необходимо ',k,' рулонов');
end.