var n : byte; l : string;begin write('Dati nr lunii: '); readln(n); case n of 1: l:='Iarna'; 2: l:='Iarna'; 3: l:='Primavara'; 4: l:='Primavara'; 5: l:='Primavara'; 6: l:='Vara'; 7: l:='Vara'; 8: l:='Vara'; 9: l:='Toamna'; 10: l:='Toamna'; 11: l:='Toamna'; 12: l:='Iarna'; else writeln('Ati introdus o cifra gresita'); end; write(l); readln;end.