uses math;
var mi,n:int64;
begin
mi := trunc(1e18+1);
readln(n);
if ((n mod 3) mod 5 = 0) then mi := min(mi,(n div 3) + ((n mod 3) div 5));
if ((n mod 5) mod 3 = 0) then mi := min(mi,(n div 5) + ((n mod 5) div 3));
if (n mod 3 = 0) then mi := min(mi,n div 3);
if (n mod 5 = 0) then mi := min(mi,n div 5);
if mi =  trunc(1e18+1) then writeln(-1)
else writeln(mi);
readln;
end.

Ý tưởng (thuật toán tham lam):

- Tạo mảng là số $kg$ của các túi

- Cho $i$ chạy từ $1$ đến $2$, $2$ là số túi lớn nhất

- ans cộng cho $\dfrac n{a[i]}$, $\dfrac n{a[i]}$ là số túi lớn nhất mà $n$ có thể dùng $a[i]$ để giao

- $n\mod a[i]$ là phần dư khi mang tối đa các túi

Chương trình

uses crt;
var a:array[1..1000] of longint;
    n,ans,i:longint;
begin
clrscr;
    readln(n);
    a[1]:=5; a[2]:=3;
    for i:=1 to 2 do
        begin
            ans:=ans + n div a[i];
            n:=n mod a[i];
        end;
    if(ans > 0) then writeln(ans) else writeln(-1);
readln;
end.