{* Задача 565 *}

Unit ZADACH565;
Interface
Implementation
Begin
 writeln('Известен объем продукции, выпускаемый пятью предприятиями отрасли. Вычислить средний объем продукции, выпускаемый одним предприятием.');
End.

Program zadach565;

Uses zadach565.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  v : integer;
Begin
  clrscr; {* Стираем всё с экрана *}
  write('v=');
  read(v);
  write('Средний объем - ', v / 5:2 : 3);
  readkey; {* Ждем нажатия любой клавиши *}
End.