Напишите программу, которая получает номер месяца и выводит соответствующее ему время года
или сообщение об ошибке.

ответ: Программу

Объяснение: Я умный!!

var a: integer;

begin

 readln(a);

 if (a >= 1) and (a <= 2)or (a = 12) then

   writeln('Зима')

 else

   if (a >= 3) and (a <= 5) then

     writeln('Весна')

   else

     if (a >=6) and ( a <= 8) then

       writeln('Лето')

     else

       if (a >=9) and (a <= 11) then

         writeln('Осень')

       else

         writeln('Ошибка - такого месяца не существует');

end.

var a: array [1..10] of integer;

i,k1,k2,s1,s2: integer;

begin

for i: = 1 to 10 do

a[i]: = random(100);

writeln(a);

for i: =1 to 10 do

begin

if a[i] mod 2 = 0 then

begin

k1: =k1+1;

s1: =s1+a[i]

end

else

begin

k2: =k2+1;

s2: =s2+a[i]

end

end;

writeln('количество чётных элементов: ',k1);

writeln('количество не чётных элементов: ',k2);

writeln('cреднее арифметическое чётных элементов: ',s1/k1);

writeln('cреднее арифметическое не чётных элементов: ',s2/k2);

end.