Ввести элементы массива на экран в обратном порядке по 6 чисел в строке

uses crt;
const max=36;
Type mas=array [1..max] of integer;
Var a:mas; i,j:byte;
Begin
clrscr;
randomize;
For i:=1 to max do begin
a[i]:=random(30)+1;
Write(a[i]:3);
end;
Writeln('В обратном порядке матрицей:');
For j:=max downto 1 do begin 
If (j mod 6=0) then writeln;
write(a[j]:3);
end;
readkey;
end.

uses crt;
var a:array[1..36] of integer; i:integer;
begin
clrscr;
randomize;
for i:=1 to 36 do
begin
a[i]:=random(10)+5;
write(a[i]:3);
end;
writeln;
for i:=36 downto 1 do
if i mod 6=0 then
writeln
else
write(a[i]:3);
readln;
end.

uses crt;
const n=10;
var a:array[1..n] of real; i,x:integer;s:real;
begin
clrscr;
randomize;
for i:=1 to n do
begin
a[i]:=random(10)+5;
write(a[i]:6:2);
end;
writeln;
write('Vvedite x:');
readln(x);
writeln;
s:=0;
for i:=1 to n do
begin
s:=s+a[i]*exp(ln(x)*(i-1));
end;
writeln('Suma=',s:6:2);
readln;
end.