Var n:integer; begin repeat read(n); if n<1 or n>12 then writeln('Неверный номер месяца'); until n=>1 and n<=12 ; case n of 1: writeln('Этот месяц - Январь, время года - зима.'); 2: writeln('Этот месяц - Февраль, время года - зима.'); 3: writeln('Этот месяц - Март, время года - весна.'); 4: writeln('Этот месяц - Апрель, время года - весна.'); 5: writeln('Этот месяц - Май, время года - весна.'); 6: writeln('Этот месяц - Июнь, время года - лето.); 7: writeln('Этот месяц - Июль, время года - лето.'); 8: writeln('Этот месяц - Август, время года - лето.'); 9: writeln('Этот месяц - Сентябрь, время года - осень.'); 10: writeln('Этот месяц - Октябрь, время года - осень.'); 11: writeln('Этот месяц - Ноябрь, время года - осень.'); 12: writeln('Этот месяц - Декабрь, время года - зима.'); end; end.
Демонстрация позволяет запускать файл в режиме показа слайдов, не запуская PowerPoint. Microsoft Office PowerPoint — программа подготовки презентаций, являющаяся частью Microsoft Office. Материалы, подготовленные с предназначены для отображения на большом экране — через проектор, либо телевизионный экран большого размера.Переход на следующий слайд презентации можно сделать нажав левую клавишу мышки или стрелочку вправо на клавиатуре для перехода к следующему слайду либо стрелочку влево для перехода к предыдущему слайду.
меняется порядок действий в алгоритме