Question

Ежемесячный номер выпуска дается-1-12 целое число (1 января, 2 февраля и т. Д.). Напишите программу на соответствующий годовой срок («зима», «весна», «лето», «осень»)​

Answer 1

var

   n : integer;

begin

   write('введите номер месяца ');

   readln(n);

   case n of

       1, 2, 12  : writeln('зима');

       3..5      : writeln('весна');

       6..8      : writeln('лето');

       9..11     : writeln('осень');

       else writeln('за гранью разумного');

   end;

end.