Печатное устройство (принтер) печатает 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.