3

Program pas;
Var
  a, b, c, x, y, S, n : real;
Begin
  write('Введите ширину комнаты - ');
  readln(a);
  write('Введите длину комнаты - ');
  readln(b);
  write('Введите высоту комнаты- ');
  readln(c);
  write('Введите длину доски - ');
  readln(x);
  write('Введите ширину доски- ');
  readln(y);
  S:=2*(a*b+a*c+b*c);
  n:=S/x*y;
   if (n <> trunc(n)) then n:=Trunc(N)+1;
  write('Необходимо ', n, ' досок');
  readln;
    End.