Ввести номер месяца и вывести название времени, язык си

Программа на PascalABC  

var n:integer;  

begin  

cls;  

writeln ('Введите номер месяца');  

readln (n);  

if (n=1) or (n=2) or (n=12) then  

writeln ('Зима')  

else  

if (n=3) or (n=4) or (n=5) then  

writeln ('Весна')  

else  

if (n=6) or (n=7) or (n=8) then  

writeln ('Лето')  

else  

writeln ('Осень');  

end.