Ответ:

Program gh;

   var A: array[ 1..10] of integer;

         i: integer;

begin

  for i:=1 to 10 do

     begin

        A[i] := random(20) + 20;

        write(A[i]);

     end;

end.