Question

Написать программу, которая по введенному числу от 1 до 12 (номеру месяца) выдает все приходящиеся на этот месяц праздничные

Answer 1

uses crt;
var n: integer;
begin
write('Введите номер месяца: ');
readln(n);
case n of
1:
begin
writeln(' 1 января - Новый год');
writeln(' 7 января - Рождество Христово');
writeln('19 января - Крещение Господне');
end;
2:
begin
writeln(' 8 февраля - День Российской науки');
writeln('20 февраля - Международный день родного языка');
writeln('23 февраля - День защитника Отечества');
writeln('28 февраля - Масленица');
end;
3:
begin
writeln(' 1 марта - Праздник прихода весны');
writeln(' 8 марта - Международный женский день');
end;
4:
begin
writeln(' 1 арпеля - Международный день птиц');
writeln(' 7 апреля - День рождения Рунета');
writeln('12 апреля - Католическая Пасха');
writeln('23 апреля - Пасха');
end;
5:
begin
writeln(' 1 мая - День труда');
writeln(' 9 мая - День Победы');
writeln('10 мая - День матери');
writeln('15 мая - Международный день семьи');
end;
6:
begin
writeln(' 5 июня - Всемирный день охраны окружающей среды');
writeln(' 6 июня - Троица');
writeln('24 июня - Купала');
writeln('25 июня - День единения славян');
end;
7:
begin
writeln(' 6 июля - Всемирный день поцелуя');
writeln(' 8 июля - Всероссийский день семьи, любви и верности');
writeln('10 июля - День рыбака');
writeln('11 июля - Всемирный день шоколада');
end;
8:
begin
writeln('12 августа - День Военно-воздушных сил (День ВВС)');
writeln('22 августа - День Государственного флага Российской Федерации');
end;
9:
begin
writeln(' 1 сентября - День знаний');
writeln('21 сентября - Международный день мира');
writeln('30 сентября - День Интернета в России');
end;
10:
begin
writeln(' 1 октября - Международный день улыбки');
writeln(' 5 октября - Всемирный день учителя');
writeln('31 октября - Хэллоуин - канун Дня всех святых');
end;
11:
begin
writeln(' 1 ноября - День всех святых');
writeln(' 8 ноября - Международный день КВН');
writeln('17 ноября - Международный день студентов');
writeln('27 ноября - День матери России');
end;
12:
begin
writeln(' 6 декабря - День сетевика');
writeln('10 декабря - День прав человека');
writeln('23 декабря - Католический сочельник');
writeln('25 декабря - Католическое Рождество');
end;
else writeln('Нет такого месяца!');
end;
readkey
end.