uses crt;
var n: integer;
function gt(n: integer): integer;
var i,s: int64;
begin
    s:=1;
    gt:=0;
    for i:=1 to n do s:=s*i;
    while s<>0 do begin
        if s mod 10 = 0 then inc(gt) else break;
        s:=s div 10;
    end;
end;
begin
clrscr;
    readln(n);
    write(gt(n));
    readln
end.

uses Crt;
var a, i : longint;

function giai_thua (a : longint) : longint;
    var s, i, t : int64;
        begin
            s := 1; t := 0;
            for i := 1 to a do s := s * i;
            While s mod 10 = 0 do
                begin
                    s := s div 10;
                    t := t + 1;
                end;
            giai_thua:= t;
        end;
        
begin
    clrscr;
    readln(a);
    Write(giai_thua(a));
    readln;
end.