Как решить первое задание подробно, к остальным просто написать используемые функции

Program z4;  Var a: array [1..1000] of integer;      i, sum, n:integer; S_R: real;Begin  write('Введите кол-во элементов - '); readln(n);    for i := 1 to n do  begin    a[i] := random (30);    sum:= sum + a[i];  end;    S_R:= sum / n;    writeln('Cреднее арифметическое - ', S_R);    for i := 1 to n do    if (a[i] >= S_R) then write(a[i],' ');   End.

Заметим, что цикл s=s-5; выполняется 11 раз. Отсюда следует, что из s вычитается 5*11=55.
100-55=45

Митеориты
астеройды
митеорды
планеты
звёзда

Var n, i: integer;
begin
   read(n);
   for i:=10 to 99 do
       if (i mod n=0) and (i mod 10<>n) and (i div 10<>n) then write(i, ' ');
end.