Zjištění měsíce dle jeho čísla v Pascalu

Po zadání čísla (1-12) program zjistí o který měsíc se jedná.


program ROK;

var
     m: integer;     {cislo mesice}

begin
     writeln('...::: Program vypise nazev mesice dle jeho cisla (1-12) :::...');
     writeln('');
     writeln('3. Zadejte cislo mesice (1-12) a stisknete ENTER: ');
     readln (m);
     writeln('');

     {--------------------------zjisteni mesice dle cisla----------------------}

     case m of
          1:
            begin
              writeln(m,'. mesic je leden.');
            end;

          2:
            begin
              writeln (m,'. mesic je unor.');
            end;

          3:
            begin
              writeln (m,'. mesic je brezen.');
            end;

          4:
            begin
              writeln (m,'. mesic je duben.');
            end;

          5:
            begin
              writeln (m,'. mesic je kveten.');
            end;

          6:
            begin
              writeln (m,'. mesic je cerven.');
            end;

          7:
            begin
              writeln (m,'. mesic je cervenec.');
            end;

          8:
            begin
              writeln (m,'. mesic je srpen.');
            end;

          9:
            begin
              writeln (m,'. mesic je zari.');
            end;

          10:
            begin
              writeln (m,'. mesic je rijen.');
            end;

          11:
            begin
              writeln (m,'. mesic je listopad.');
            end;

          12:
            begin
              writeln (m,'. mesic je prosinec.');
            end;

          end;

      writeln('');
      writeln('Ukoncete program stisknutim ENTER');
      readln;

end.