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