Var v, n, p: integer;
begin
  n := 365;
  v := 80;
  p := Trunc(2.5 * 1024);
  writeln('Скорость ', v, ' символов в секунду');
  writeln('Всего ', n, ' страниц');
  writeln('Объем ', p, ' символов на странице');
  n := n * p;
  writeln('Всего ', n, ' символов');
  n := n div v;
  writeln('Будет печатать ', n, ' секунд');
  writeln('Или ', n div (60*60), ' ч. ', (n mod (60*60)) div 60, ' мин. ', n mod 60, ' сек.');
end.