Печатное устройство (принтер) печатает 80 символов в секунду. Сколько нужно часов, чтобы напечатать целиком книгу из 365 страниц, если объем страницы 2,5 КБайт?

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.