В ПАСКАЛЕ! написать программу которая по номеру месяца выдает название следующего за ним...

Question

В ПАСКАЛЕ!
написать программу которая по номеру месяца выдает название следующего за ним месяц при m=1

---

Answer 1

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.