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.