Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- i: Integer;
- m: String;
- begin
- ReadLn(i);
- case i of
- 1: m := 'Jan';
- 2: m := 'Feb';
- 3: m := 'Mar';
- 4: m := 'Apr';
- 5: m := 'May';
- 6: m := 'Jun';
- 7: m := 'Jul';
- 8: m := 'Aug';
- 9: m := 'Sep';
- 10: m := 'Oct';
- 11: m := 'Nov';
- 12: m := 'Dec';
- end;
- WriteLn(m);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement