program Anotimp;
var nrluna:integer;
begin
writeln('introdu nr lunii anului.. ');
writeln(' 1 - pt ianuarie, 2 - pt februarie s.a.m.d ');
read(nrluna);
case nrluna of
1,2,12: writeln('iarna');
3..5: writeln('primavara');
6..8: writeln(' a doua vara, adica vara...');
9..11: writeln('toamna');
else writeln(' eroare.. (anul are 12 luni) ');
end;
end.