Var
n: integer;
begin
write('Введите номер месяца (1-12): ');
readln(n);
case n of
1: writeln('1 января - Новый год; 7 января - Рождество Христово');
2: writeln('23 февраля - День защитника Отечества');
3: writeln('8 марта - Международный женский день');
5:
begin
writeln('1 мая - Праздник Весны и Труда;');
writeln('9 мая - День победы советского народа в Великой Отечественной войне 1941-19545 годов')
end;
6: writeln('12 июня - День России');
11: writeln('4 ноября - День народного единства')
end
end.
Тестовое решение:
Введите номер месяца (1-12): 6
12 июня - День России
1.Состоит из букв алфавита
3.Имеет определённый смысл
5.Его можно произнести вслух или записать
7.Его можно закодировать
K := 2;
while k <= N do begin
writeln ( A[k] );
k:=k+2;
<span>end;
</span>