Паскаль для решения следующей задачи: заполнить ЦЕЛОЧИСЛЕННЫЙ массив 20-ю случайными элементами в диапазоне от 20 до 40 и найти сумму лишь НЕЧЁТНЫХ номеров (элементов) массива.

const     n = 20; var     a: array[1..n] of integer;     i, s: integer; begin     randomize;     for i := 1 to n do     begin         a[i] := random(20) + 20;         write(a[i], ' ');         if i mod 2 = 1 then             s := s + a[i];     end;          writeln();     writeln(s); end.