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

program abc;constN = 6;vara: array[1..N] of integer;k,i,q,s,p : integer;beginS:=0;Q:=0;for i:= 1 to N dobeginWriteln('Введите значение элемента № ',i);Readln(a[i]);end;for i:= 1 to N dobeginif i mod 2 = 1 thena[i]:=a[i]*a[i]*a[i];if i mod 2 = 0 thena[i]:=a[i]*a[i];end;for i:= 1 to N dobeginif i mod 2 = 1 thens:=s+a[i];if i mod 2 = 0 thenq:=q+a[i];end;p:=s*q;Writeln('Ответ: ',p);end.//N можно изменять как удобно