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

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.