Информатика

Касьян

24 сентября, 08:00

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