program bulan dengan pascal

program bulan;
uses wincrt;
var
   no:integer;
      function nama_bulan(no:integer):string;
      begin
         case (no) of
         1:nama_bulan:='Januari';
         2:nama_bulan:='Februari';
         3:nama_bulan:='Maret';
         4:nama_bulan:='April';
         5:nama_bulan:='Mei';
         6:nama_bulan:='Juni';
         7:nama_bulan:='Juli';
         8:nama_bulan:='Agustus';
         9:nama_bulan:='September';
         10:nama_bulan:='Oktober';
         11:nama_bulan:='November';
         12:nama_bulan:='Desember';
      end;
   end;
begin
   clrscr;
   writeln('Input Nomor Bulan : ');
   readln(no);
   writeln('Nama Bulan:',nama_bulan(no));
   readln;
end.