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

var m:real;beginwrite('введите месяц : ');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.