program Travnik; var n, m : integer; { rozměry matice } k : integer; { požadované množství trávy } s : integer; { součet prvků v matici } c : integer; { načtené číslo } i : integer; { čítač } begin writeln('Zadejte n m k:'); readln(n,m,k); writeln('Zadejte matici: '); s := 0; for i := 1 to n*m do begin read(c); s := s + c; end; if s = 0 then writeln('Z takového trávníku nikoho nepohostíš.') else writeln('Na hostinu je potřeba počkat ještě ',(k-1) div s,' dní.'); end.