Помогите, пожалуйста, с задачей в Pascal: "Заполнить значениями первые 50 элементов массива следующим образом: A [1]=1

var a: array[1..50] of integer; i: integer; s: integer;procedure PrnTen( n, d : integer);var k: integer;begin writeln; for k:= n to n+d do begin if (k mod 2) = 1 then write(\'№ \', k, \' = \', a[k], \' ;\'); end;end;begin a[1]:= 1 for i:= 1 to 49 do begin a[i+1]:= a[i] + 4; end; s:= 0; for i:= 1 to 50 do s:= s + a[i]; PrnTen( 10, 9); PrnTen( 20, 9); PrnTen( 30, 9); PrnTen( 40, 9);end.В первом цикле заполняется массив. Каждый элемент массива рассчитывается, как предыдущий значение предыдущего элемента плюс 4.Во втором цикле находится сумма всех элементов массива и сохраняется в переменной \"s\".Для печати нечетных элементов, в программу введена процедура печати.Параметры процедуры: n- номер первого элемента массива,d- количество обрабатываемых элементовВ процедуре начиная с элемента под номером \"n\", обрабатываются \"d\" элементов. На этом промежутке, все элементы с нечетными номерами печатаются на экране.Эта процедура вызывается для печати нечетных элементов:- первого десятка (10..19);- второго десятка (20..29);- третьего десятка (30..39);- четвертого десятка (40..49).