Question

Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз
program choise;
var N_M:integer;
writeln(' введи номер месяца ');
readln(N_M);
case N_M 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(' декабрь ');
else writeln(' такого месяца нет ');
end;
case N_M of
4,6,9,11:writeln(' 30 дней ');
1,3,5,7,8,10,12:writeln(' 31 дней ');
2:writeln(' 28 дней ');
end;
case N_M of
12,1,2:writeln(' зима');
3,4,5:writeln(' весна');
6,7,8:writeln(' осень');
9,10,11:writeln(' лето');
end;
end.

Answer 1

Var month: array[1..12]of string[10]=
(' январь ',' февраль ',' март ',' апрель ',' май ',' июнь ',
' июль ',' август ',' сентябрь ',' октябрь ',' ноябрь ',' декабрь ');
procedure p(s:string);
begin
writeln(s);
end;
var N_M:integer;
begin
writeln(' введи номер месяца ');
readln(N_M);
case N_M of
 1..12: p(month[N_M]);
 else p(' такого месяца нет ');
 end;
case N_M of
 1,3,5,7,8,10,12: p(' 31 день ');
 4,6,9,11: p(' 30 дней ');
 2: p(' 28 дней ');
 end;
case N_M of
 12,1,2: p(' зима');
 3,4,5: p(' весна');
 6,7,8: p(' осень');
 9,10,11: p(' лето');
 end;
end.

Пример:
введи номер месяца
5
май
31 день
весна