program data;
Uses crt;
var d,m,g:integer;
begin
Clrscr;
m:=1;
while m<>0 do
begin
Write('Дата в формате [день, месяц, год]:');
readln(d,m,g);
case m of
3..5: writeln('весна');
6..8:writeln('лето');
9..11:writeln('осень');
1,2,12:writeln('зима') ;
end;
end;
end.