Помогите написать программу в turbo Pascal. Напишите программу Генератором случайных чисел генерируется последовательность 50-ти случайных чисел из диапазона [-10;20]. Вычислить сумму положительных элементов последовательности, порядковые номера которых нечетны.

var a : array[1..50] of integer; sum, i : integer;beginrandomize;for i := 1 to 50 do begin a[i] := random(31)-10; writeln(i,' ',a[i]); if (a[i] > 0) and (i mod 2 <> 0) then sum := sum + a[i]; end;writeln(sum)end.

var a : array[1..50] of integer;          sum, i : integer;beginrandomize;for i := 1 to 50 do begin        a[i] := random(31)-10;        if (a[i] > 0) and (i mod 2 <> 0) then                sum := sum + a[i];  end;write(sum)end.