Advertisement
Guest User

Untitled

a guest
Apr 19th, 2015
187
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.34 KB | None | 0 0
  1. var
  2.   i: Integer;
  3.   m: String;
  4. begin
  5.   ReadLn(i);
  6.   case i of
  7.      1: m := 'Jan';
  8.      2: m := 'Feb';
  9.      3: m := 'Mar';
  10.      4: m := 'Apr';
  11.      5: m := 'May';
  12.      6: m := 'Jun';
  13.      7: m := 'Jul';
  14.      8: m := 'Aug';
  15.      9: m := 'Sep';
  16.     10: m := 'Oct';
  17.     11: m := 'Nov';
  18.     12: m := 'Dec';
  19.   end;
  20.   WriteLn(m);
  21. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement