Как составить программу паскаль название месяца

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

uses crt;
var a:integer;
begin
writeln('Введите число(от 1 до 12):');
read(a);
if a=1 then writeln('Январь');
if a=2 then writeln('Февраль');
if a=3 then writeln('Март');
if a=4 then writeln('Апрель');
if a=5 then writeln('Май');
if a=6 then writeln('Июнь');
if a=7 then writeln('Июль');
if a=8 then writeln('Август');
if a=9 then writeln('Сентябрь');
if a=10 then writeln('Октябрь');
if a=11 then writeln('Ноябрь');
if a=12 then writeln('Декабрь');
end.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

[FONT=Arial][SIZE=3]uses crt; 
const mas: array[1..12] of string=('январь', 'февраль', 'март', 'апрель', 'май', 'июнь',
                                                      'июль', 'август', 'сентябрь', 'октябрь', 'ноябрь', 'декабрь'); 
var n: byte; 
begin  
 clrscr;  
 write ('введите номер месяца: ');  
 if n<=12 then   
  begin 
      readln (n);
   write (n,'-й месяц - это ', mas[n]);
  end  
 else writeln ('а месяцев то только двенадцать');
end.  
[/SIZE][/FONT]

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

#include<iostream>
using namespace std;
int main()
{
    int i;
    cout<<"Your choose: ";
    cin>>i;
    switch (i)
    {
        case 1: cout<<"January"; break;
        case 2: cout<<"February"; break;
        case 3: cout<<"March"; break;
        case 4: cout<<"April"; break;
        case 5: cout<<"May"; break;
        case 6: cout<<"June"; break;
        case 7: cout<<"July"; break;
        case 8: cout<<"August"; break;
        case 9: cout<<"September"; break;
        case 10: cout<<"October"; break;
        case 11: cout<<"November"; break;
        case 12: cout<<"December"; break;
        default: cout<<"Input error";
    };
    return 0;
}