Что символизировала зима в представлении древних славян?

Var   n,i:Integer;
begin 
 i:=0;
 repeat 
 Readln(n); 
 if (n mod 2=0) and (n<>0) then
   Inc(i); 
until n=0; 
Writeln; 
Writeln(i); 
readln;
end.