Program pas;
Var
  a, b, c, x, y, S, n : real;
Begin
  write('Введите ширину окна - ');
  readln(a);
  write('Введите высоту окна - ');
  readln(c);
  write('Введите количество - ');
  readln(b);
  write('Введите расход краски на квадратный метр - ');
  readln(x);
  S:=a*b*c;
  n:=S/x;
  write('Необходимо ', n, ' едениц краски');
  readln;
    End.