:операторы цикла y = ln(x2 -9)/x; a = -6, b = 6, h = 1 в паскале решить

// PascalABC.Net 3.0, сборка 1052
const
  a=-6; b=6; h=1;
begin
  for var x:=a to b do Writeln('x=',x:2,', y=',ln(sqr(x)-9)/x)
end.

Результат выполнения программы:
x=-6, y=-0.549306144334055
x=-5, y=-0.554517744447956
x=-4, y=-0.486477537263828
x=-3, y=бесконечность
x=-2, y=NaN
x=-1, y=NaN
x= 0, y=NaN
x= 1, y=NaN
x= 2, y=NaN
x= 3, y=-бесконечность
x= 4, y=0.486477537263828
x= 5, y=0.554517744447956
x= 6, y=0.549306144334055

Примечание: NaN система выдает, если не может выполнить какое-то действие. В данном случае под знаком логарифма оказывается неположительное число.

Var a1,a2,a3,a4,a5,max: integer;
begin
writeln ('Введите 5 чисел через пробел: ');
readln (a1,a2,a3,a4,a5); 
  begin
if (a1>a2) then max:= a1else max:=a2;
if (a2>a3) then max:=a2else max:=a3;
if (a3>a4) then max:=a3else max:=a4;
if (a4>a5) then max:=a4else max:=a5; 
  end;
writeln (max);
end. 
Аналогично с минимальным числом.
var a1,a2,a3,a4,a5,min: integer;
begin
writeln ('Введите 5 чисел через пробел: ');
readln (a1,a2,a3,a4,a5); 
  begin
if (a1<a2) then min:= a1else min:=a2;
if (a2<a3) then min:=a2else min:=a3;
if (a3<a4) then min:=a3else min:=a4;
if (a4<a5) then min:=a4else min:=a5; 
  end;
writeln (min);
end.  
Можно так же решить с массива, если нужно пишите.

В оглавлении произведения, разбитого на части, разделы, подразделы, главы, подглавы, параграфы, подпараграфы, примечания и т. п., устанавливающие соподчиненность отдельных частей произведения, последовательно приводятся наименования частей, разделов, глав, параграфов в полном объёме, так, как они даны в тексте, и указываются страницы, на которых начинается рубрика. Рубрики последней ступени — подзаголовки, взятые в тексте рукописи в подбор, — в оглавлении могут не приводиться. Взаимоподчиненность частей произведения в оглавлении передают средствами полиграфического оформления: выделением в красную строку, шрифт