program lol;
var a,b,c,l:integer;
begin
read (a);
read (b);
read (c);
l:=0;
if a mod 5 = 0 then l:=l+1;
if b mod 5 = 0 then l:=l+1;
if c mod 5 = 0 then l:=l+1;
writeln (l);
end.
*проверил в паскале
program lol;
var a,b,c,l:integer;
begin
read (a);
read (b);
read (c);
l:=0;
if a mod 5 = 0 then l:=l+1;
if b mod 5 = 0 then l:=l+1;
if c mod 5 = 0 then l:=l+1;
writeln (l);
end.
*проверил в паскале