Ответы
                                            Ответ дал: 
                                                                                    
                                        
                                            
                                                
                                                
                                                
                                                    0
                                                
                                            
                                        
                                    
                                        //PascalABC.NET
begin
writeln('Введите порядковый номер месяца');
var a := ReadInteger();
case a of
12,1,2 : writeln('Зима');
3..5 : writeln('Весна');
6..8 : writeln('Лето');
9..11 : writeln('Осень');
else writeln('Вы живете в параллельной вселенной');
end
end.
                                    
                                                begin
writeln('Введите порядковый номер месяца');
var a := ReadInteger();
case a of
12,1,2 : writeln('Зима');
3..5 : writeln('Весна');
6..8 : writeln('Лето');
9..11 : writeln('Осень');
else writeln('Вы живете в параллельной вселенной');
end
end.
Приложения:
                     
                             
                             
                            Вас заинтересует
                
                        2 года назад
                    
                
                        2 года назад
                    
                
                        3 года назад
                    
                
                        10 лет назад
                    
                