Определить время года по названию месяца - Turbo Pascal

Формулировка задачи:

Помогите, пожалуйста! не могу найти ошибку!
program sezon;
var m, vesna, leto, zima, osen, oshibka: byte;
begin
writeln('введите месяц');
readln(m);
case m of 
12, 1, 2: writeln (zima);
3, 4, 5: writeln (vesna);
6, 7, 8: writeln (leto);
9, 10, 11: writeln (osen);
m<>1..12: writeln (oshibka);
end;
readln;
end.

Код к задаче: «Определить время года по названию месяца - Turbo Pascal»

textual
program sezon;
var m, vesna, leto, zima, osen, oshibka: byte;
begin
writeln('ââåäèòå ìåñÿö');
readln(m);
case m of
12, 1, 2: writeln ('zima');
3, 4, 5: writeln ('vesna');
6, 7, 8: writeln ('leto');
9, 10, 11: writeln ('osen');
else writeln ('oshibka');
end;
readln;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

8   голосов, оценка 4.250 из 5


СДЕЛАЙТЕ РЕПОСТ