Нужен пример программы с массивами

program p;
const n=10;
var a:array[1..n] of integer;
    i,max,min:integer;
begin
   writeln('Ââåäèòå ìàññèâ');
   min:=maxint;
   max:=-maxint;
   for i:=1 to n do
      begin
         readln(a[i]);
         if a[i]<min then min:=a[i];
         if a[i]>max then max:=a[i];
      end;
   writeln('Ìàêñèìàëüíîå çíà÷åíèå ',max);
   writeln('Ìèíèìàëüíîå çíà÷åíèå ',min);
end.

program p;
const n=10;
var a:array[1..n] of integer;
    i,k:integer;
begin
   k:=0;
   writeln('Ââåäèòå ìàññèâ');
   for i:=1 to n do
      readln(a[i]);
   writeln('×èñëà, êðàòíûå äâóì');
   for i:=1 to n do
      if (a[i] mod 2=0) then write('':2,a[i]);
end.

Program  mas_2;
Var a:array[1..1000]  of integer;
n,I:integer;
s:real;
Begin
Writeln('введите размерность массива*'); Readln(n);
Writeln('введите элементы*');
For i:=1 to n do
Readln(a[i]);
s:=0;
For i:=1 to 10 do s:=s+a[i];
Writeln('Среднее арифметическое =',s/n:4:4);
Readln;
End.