Надо написать задачи в "Паскале". Помогите пожалуйста!

var m:real;
begin
write('введите месяц : ');
readln(m);
if ((m/3 <1) or (m=12)) then write('зима'); 
if ((m/3 <2) and (m/3 >=1)) then write('весна');
if ((m/3 <3) and (m/3 >=2)) then write('лето');
if ((m/3 <4) and (m/3 >=3)) then write('осень');
end.