10 класс, паскаль с экрана запрашивается номер месяца. в зависимости от введенного значения на экран выводится либо сообщение о том, какому времени года этот месяц принадлежит, либо о том, что месяца с таким номером не существует. каждое время года выводится своим цветом: зима - белым, весна - зеленым, лето - красным, осень - желтым. сообщение о том, что месяца с таким номером не существует, - серым.
Var MONTH:integer;
begin
writе('Введіть порядковий номер місяця:');
readln(MONTH); if (M0NTH<1) or (month>12) then
writeln('Такого місяця немає') else
case MONTH of
3,4,5:writeln('Becнa');
6,7,8:writeln('Лiтo');
9,10,11l:writeln(Ociнь');
12,1,2:writeln('3имa')
end;
end.