Написать лёгкую программу написать программу которая по номеру месяца выдаёт название предыдущего перед ним месяца (паскаль)

Var a: integer;
begin
readln(a);
if a=1 then write('Декабрь');
if a=2 then write('Январь');
и т.д
if a=12 then write('Ноябрь');
end.