Program steny;
uses crt;
var S,S1:integer; {площадь стен, площадь рулона}
    N:integer;    {Необходимое количество рулонов}
    D,K:real;     {Стоимость рулона, общая цена}

Begin
  clrscr;
  writeln('Введите площадь оклеимаевой поверхности'); read(S);
  writeln('Введите площадь рулона'); read(S1);
  writeln('Введите цену рулона'); read(D);
  if((S mod s1) <> 0) then N:=(S div S1)+1
  else N:=S div S1;
  writeln('Необходимо ',N,' рулонов');
  K:=D*N;
  writeln('Затраты на приобретение необходимого количества рулонов: ',K:8:3);
  readln;
  readln;
end.  

Program Ex_1;
uses crt;
const
 d = 10; {длинна рулона и его стоимость}
 s1 =200;
var
 r1,r2,r3,r4 : real;{размеры стен}
 
 i,i1,i2 : integer;{количество стен и рулонов}
 d1,d2 : real;{размеры рулона}
 S,S1 : real;{стоимость обоев}
 
 k,k1,k2,k3:real;
 k4,k5,k6:real;
 
Begin;
  ClrScr;
  S:=0; k3:=0;
  Writeln('Введи размер стены');
  Read(r1,r2);
  Writeln('введи размер второй стены');
  Read(r3,r4);
  writeln('1 рулон');
  read(d1,d2);
  read(i1,i2);
   k :=r1 div d1;
   k1:=r2 div d2;
   k4:=r3 div d1;
   k5:=r4 div d2;
   k6:=k4 * k5;
   k3:=i1 * (k2/10)+i2*(k6/10);
  writeln('количество рулонов = ', k3);
   S:= S1*k3;
  writeln('стоимость рулона = ', S,'руб');
  readln;
End.

function upRound(r: real): longint;
var
  res: longint;
begin
  res := round®;
  if res < r then inc(res);
  upRound := res;
end;

  if((S mod s1) <> 0) then N:=(S div S1)+1
  else N:=S div S1;

  N := (S + S1 - 1) div S1;