Для чего используется программное обеспечения

Var  a: integer;
begin
    writeln('Введите год рождения'); readln(a);
    case a mod 12 of
        0: writeln('Вы родились в год Обезьяны.');
        1: writeln('Вы родились в год Петуха.');
        2: writeln('Вы родились в год Собаки.');
        3: writeln('Вы родились в год Свиньи.');
        4: writeln('Вы родились в год Крысы.');
        5: writeln('Вы родились в год Быка.');
        6: writeln('Вы родились в год Тигра.');
        7: writeln('Вы родились в год Кролика.');
        8: writeln('Вы родились в год Дракона.');
        9: writeln('Вы родились в год Змеи.');
        10: writeln('Вы родились в год Лошади.');
        11: writeln('Вы родились в год Козы.');
  end;
  readln
end.

Десятиричная двоичная восьмеричная шеснадцатиричная
        0                   0                 0                         0
        1                   1                 1                         1
        2                   10               2                          2
        3                   11               3                          3
        4                   100             4                          4
        5                   101             5                          5
        6                   110             6                          6
         7                  111            7                          7
         8                 1000                                        8
         9                 1001                                        9
         10                1010                                        А
         11                 1011                                        B
         12                 1100                                       C
         13                 1101                                       D
         14                 1110                                       E
         15                  1111                                       F