помогите составить программу.

program z;
var n:Integer;
begin
write('Введите номер месяца: ');
read(n);
if (n>=3) and (n<=5) then WriteLn('Весна')
else if (n>=6) and (n<=8) then Writeln('Лето')
else if (n>=9) and (n<=11) then Writeln('Осень')
else if (n=12) or (n=1) or (n=2) then Writeln('Зима')
else WriteLn('Ошибка')
end.