var a,i,k,m:integer;

BEGIN

k:=0;

m:=0;

for i:=1 to 15 do begin

readln(a);

if (a=4) then k:=k+1;

if (a=5) then m:=m+1;

end;

writeln(k,' студентов сдали экзамен на "4".');

writeln(m,' студентов сдали экзамен на "5".');

end.