Помогите сделать задание))

var
i,n:integer;
begin
readln(n);
case n of
1:writeln('Январь');
2:writeln('Февраль');
3:writeln('Март');
...
end;
end.