20 баллов. Найдите пожалуйста ошибку, пишет всегда ошибка, не правильно введён номер...

Question

20 баллов. Найдите пожалуйста ошибку, пишет всегда ошибка, не правильно введён номер месяца говорит а должно говорить от цифр 1-12 время года. Исправьте пожалуйста.

---

Answer 1

var m:integer;

begin

readln(m);

if (m=1) or (m=2) or (m=12) then writeln('z') else

if (m=3) or (m=4) or (m=5) then writeln('v') else

if (m=6) or (m=7) or (m=8) then writeln('l') else

if (m=9) or (m=10)or (m=11) then writeln('o')

else writeln('err');

end.

Или

var m:integer;

begin

readln(m);

if (m=1) or (m=2) or (m=12) then writeln('z');

if (m=3) or (m=4) or (m=5) then writeln('v');

if (m=6) or (m=7) or (m=8) then writeln('l');

if (m=9) or (m=10)or (m=11) then writeln('o');

if (m<1) or (m>12) then writeln('err');

end.

Comments

Спасибо огромное