menentukan bulan dalam pascal

Annyeong chingu ..
sebelumnya perkenalkan saya seli, disini saya ingin berbagi pada teman2 bagaimana cara membuat program menentukan bulan pada pascal. ya udah deh kita langsung aja yukkkk bikin programnya


program bulan;

uses crt;
var
       n : integer;

BEGIN
        clrscr;
        write('masukan angka : ');readln(n);


        write('bulan ke ',n,' adalah bulan : ' );
        case angka of
                1 :begin
                        writeln('januari');
                        readln;
                   end;
               2:begin
                        writeln('februari');
                        readln;
                 end;
               3 :begin
                        writeln('maret');
                        readln;
                  end;
               4 :begin
                        writeln('april');
                        readln;
                  end;
               5 :begin
                        writeln('mei');
                        readln;
                  end;
               6 :begin
                        writeln('juni');
                        readln;
                  end;
               7 :begin
                        writeln('juli');
                        readln;
                  end;
               8 :begin
                        writeln('agustus');
                        readln;
                  end;
               9 :begin
                        writeln('september');
                        readln;
                  end;
               10:begin
                        writeln('oktober');
                        readln;
                  end;
                11:begin
                        writeln('november');
                        readln;
                   end;
                12:begin
                        writeln('desember');
                        readln;
                     end;

             end;

END.


nah itu dia algoritmanya, setelah dibuat seperti itu kita akan run kan programnya dan hasilnya seperti ini :

terimakasih teman teman yang udah mampir di blog aku, semoga bermanfaat :)