Сделать так чтобы 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.

var month: array[1..12]of string[10]=(' январь ',' февраль ',' март ',' апрель ',' май ',' июнь ',' июль ',' август ',' сентябрь ',' октябрь ',' ноябрь ',' декабрь ');procedure p(s:string);beginwriteln(s);end;var N_M:integer;beginwriteln(' введи номер месяца ');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 деньвесна