Решите задачу по геометрии
РЕШИТЬ ТОЛЬКО 9 И 12​

Зороастри́зм (авест. vahvī- daēnā- māzdayasna- — «Благая вера почитания Мудрого», перс. «بهدین»‎ — behdin, «Благая вера») — одна из древнейших религий, берущая начало в откровении пророка Спитамы Заратустры (авест.  Zaraθuštra, также известен как Зардушт пехл.  Zardu(x)št и Зороастр др.-греч. Ζωροάστρης), полученном им от бога Ахура Мазды (Асура Мазды) . В основе учения Заратустры — свободный нравственный выбор человеком благих мыслей, благих слов и благих деяний. В древности и в раннем средневековье зороастризм был распространён преимущественно на территории Большого Ирана.

Ну и сюда скину. Вдруг не заметишь)
Эта автоматически тебе всё сделает.
Var i, n, max : Integer;
     a : array [1..30] of Integer;
 begin
    for i := 1 to 30 do
 begin
      Write('a[', i, ']='); 
      a[i]:=i+1;
      if max<a[i] then max:=a[i];
      writeln(a[i]);
end;
  writeln('Максимальный элемент равен: ',max);
end.

Если нужно будет ввести последовательность с клавиатуры, то вот:
Var i, n, max : Integer;
     a : array [1..30] of Integer;
 begin
    for i := 1 to 30 do
 begin
      Write('a[', i, ']='); 
      ReadLn (a[i]);
      if max<a[i] then max:=a[i];
end;
  writeln('Максимальный элемент равен: ',max);
end.