Составите программу (Паскаль)Написать программу, которая по номеру месяца выдает название следующего за ним месяца (при m =1 получаем февраль, 4 — май и т. д. ).

Проверенный .

var

m:integer;

begin

read (m);

case m of

1: write ('Февраль');

2: write ('Март');

3: write ('Апрель');

4: write ('Май');

5: write ('Июнь');

6: write ('Июль');

7: write ('Август');

8: write ('Сентябрь');

9: write ('Октябрь');

10: write ('Ноябрь');

11: write ('Декабрь');

12: write ('Январь');

end;

end.

Удачи!