F.4CA Winnie Leung (22)
program ConvertMonth (input, output);
uses wincrt;
var M:integer;
    S:string
 
(**** Procedure ****)
procedure CvtMonth(M: integer; var S: string);
begin
  case M of 
  1: writeln('January');
  2: writeln('February');
  3: writeln('March');
  4: writeln('Aprial');
  5: writeln('May');
  6: writeln('June');
  7: writeln('July');
  8: writeln('August');
  9: writeln('September');
  10: writeln('October');
  11: writeln('November');
  12: writeln('December');
  end
end;
(**** Main Program ****)
begiin
  write('Please enter a numeric value of the month: ');
  readln(M)
  CvtMonth(M, S);
  writeln('The month is ', S)
end.