{* Задача 569 *}

Unit ZADACH569;
Interface
Implementation
Begin
 writeln('На производство 1 кв. метра ситца затрачивают 5 минут. Определить количество ткани, выпущенное за N часов при ширине полотна L м.');
End.

Program zadach569;

Uses zadach569.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  d   : real;
  n   : real;
  l   : real;
  kvm : real;
Begin
  clrscr; {* Очистка экрана *}
  write('Время в час. n=');
  read(n);
  write('Ширина ткани в м. l=');
  read(l);
  kvm := n * 60 / 5;
  d := kvm / l;
  Writeln('За ', n : 2:2, ' час. выпущено: ', kvm : 2:2, ' кв.м. ткани.');
  Writeln('При ширине ', l : 2:2, ' м. выпущено: ', d : 2:2, ' м. ткани.');
  readkey; {* Нажмите любую клавишу *}
End.