{* Задача 567 *}

Unit ZADACH567;
Interface
Implementation
Begin
 writeln('На строительных работах нужно отработать S часов, в подразделении N строителей. Какова средняя загруженность одного человека?');
End.

Program zadach567;

Uses zadach567.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  s : integer;
  n : integer;
Begin
  clrscr; {* Очистка экрана *}
  write('Количество часов s=');
  read(s);
  write('Количество рабочих n=');
  read(n);
  write('Средняя загруженность ', s / n:2 : 2, 'час.');
  readkey; {* Нажмите любую клавишу *}
End.