Паскаль! вывести на экран все содержимое файла. найти сумму его элементов с четными номерами. ​

Не до конца понятно как именно надо заполнять потому два варианта begin       arrrandominteger(10, 1, 10).println;       arrgen(10, 1, x -> x + 1).println; end. или так const       n = 10; var       a: array[1..n] of integer;       i: integer; begin       for i : = 1 to n do       begin               a[i] : = i;               write(a[i], ' ');       end;       end.

ответ:

program z_1;

var

  a, b: array [1..3] of integer;

  i, imax, btmp: integer;

  ine: boolean;

begin

  for i : = 1 to 3 do begin

    read (a [i]);

    b [i] : = 0;

  end;

  ine : = false;

  for i : = 1 to 3 do begin

    if a [i] mod 3 = 0 then begin

      b [i] : = a [i];

      ine : = true;

    end else

      b [i] : = 0;

  end;

  if ine then begin

    imax : = 1;

    for i : = 2 to 3 do

      if b [i] > b [imax] then

        imax : = i;

    btmp : = b [imax];

    b [imax] : = b [1];

    b [1] : = btmp;

    if b [2] < b [3] then begin

      btmp : = b [2];

      b [2] : = b [3];

      b [3] : = btmp;

    end;

    writeln;

    for i : = 1 to 3 do

      if b [i] < > 0 then

        write (b [i], ' ');

  end else

    writeln ('значений нет.');

  readln;

  readln;

end.