1. Массив А — рост 22 учеников класса, заполненслучайным значение от [150;180]. Найти количествоучеников, чей рост меньше значения N.2. Массив В(10) заполнен с клавиатуры. Найти суммучетных элементов, 3. Массив А(7) заполнен случайными числами (5:20]Найти произведения элементов больших 10​

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.