Масив. Пошук елемента в масиві із заданими властивостями

Що буде виведено на екран після виконання даного фрагменту програми

...

for i:=1 to n do write(a[i],' ');

...

Розстав по порядку текст програми для знаходження значення максимального елемента масиву

1. Var i, n, max : integer ;

A : array [1..100] of integer;

2. For i := 1 to N do begin

A[i] := Random(100);

end;

3. Writeln('Введіть кількість элементів массиву') ;

Readln(N) ;

4. Begin

5. Max := A[1];

For i := 2 to N do

if A[i]>Max then Max := A[i];

6. Writeln('Максимальный елемент массиву = ',Max) ;

7. End.