Составить программы на Паскаль которая по номеру месяца определит его название.

varm:integer;beginread (m);case m of1: 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.