умоляю задания 1, 2, 3, 5, 6, 7

От куда мне знать информатику это же тупой урок

Program qq;
var a, count2, count3: integer;
begin
  writeln('Введите число');
  readln(a);
  count2:=0;
  count3:=0;
  while a>0 do
  begin
    if a mod 10 = 2 then
      count2:=count2+1;
    if a mod 10 = 3 then
      count3:=count3+1;
    a:=a div 10;
  end;
  if count2>count3 then
    a:=count3
  else
    if count3>count2 then
      a:=count2
    else
      a:=count2;
  if a<>0 then
    while a>0 do
    begin
      writeln('Выведено число 23');
      a:=a-1;
    end
  else
    writeln('Нельзя получить число 23 из цифр введённого числа');
end.

Для начала продумаем наше решение. Сначала заполним массив случайными числами с цикла и сразу в нем найдем сумму его чисел, чтобы потом найти среднее арифметическое, а потом уже в следующем цикле будем искать числа больше или меньше среднего арифметического.Для того чтобы решить задачу нам понадобятся следующие переменные :1. Переменная mass — для нашего массива
2. Переменная more — для чисел больше среднего арифметического
3. Переменная less — для чисел меньше среднего арифметического
4. Переменная aver — для среднего арифметического
5. Переменная i — для циклаНачнем мы с каркаса нашей программы :123456789101112131415const N = 40;type    massiv = array [1..N] of integer;var    mass: massiv;    more, less, i : integer;    aver : real;    begin    randomize;         aver := 0;    more := 0;    less := 0;end.