program vremya_goda;
uses crt;
var
n:integer;
begin
clrscr;
writeln('введите номер месяца');
writeln('для выхода нажмите "0"');
repeat
readln(n);
case n of
0 : writeln('выход из программы');
1,2,12 : writeln('зима');
3,4,5 : writeln('весна');
6,7,8 : writeln('лето');
9,10,11: writeln('осень');
else writeln('"Ошибка ввода данных"');
end;
until n=0;
textcolor(10);
writeln('программа работу закончила!');
readln;
end.