С клавиатуры вводится N целых чисел a1, a2,….,aN. Найти сумму этих чисел. Найти номер первого четного числа последовательности чисел.

program my_program;
 
uses crt;
 
procedure cyclearray;
const csize=100;
var
  a:array[1..csize] of integer;
  i,k,n,sum:integer;
begin
  clrscr;
  writeln('введите кол-во(n) чисел');
  readln(n);
  sum:=0;
  writeln('введите числа');
  for i:=1 to n do begin
    readln(a[i]);
    sum:=sum+a[i];
    if k<1 then
      if a[i] mod 2 = 0 then
        k:=i;
  end;
  writeln('сумма всех элементов массива ',sum);
  writeln('Номер первого чётного числа ',k);
  readln
end;
 
procedure cyclerepeat;
var
  a,k,n,res,sum:integer;
begin
  clrscr;
  writeln('введите кол-во(n) чисел');
  readln(n);
  k:=0;res:=0;sum:=0;
  writeln('введите числа');
  repeat
    readln(a);
    sum:=sum+a;
    inc(k);
    if res=0 then
      if a mod 2=0 then
        res:=k;
  until k=n;
  writeln('сумма всех чисел ',sum);
  writeln('порядковый номер первого чётного числа ',res);
  readln
end;
 
procedure cyclegoto;
label metka_1;
var
  a,k,n,res,sum:integer;
begin
  clrscr;
  writeln('введите кол-во(n) чисел');
  readln(n);
  sum:=0;res:=0;k:=0;
  writeln('введите числа');
  metka_1:
  readln(a);
  sum:=sum+a;
  inc(k);
  if res=0 then
    if a mod 2 = 0 then
      res:=k;
  if k<5 then
    goto metka_1;
  writeln('сумма всех чисел ',sum);
  writeln('порядковый номер первого чётного числа ',res);
  readln
end;
 
var n:byte;
begin
  repeat
    clrscr;
    writeln('*****меню*****');
    writeln('1. I способ');
    writeln('2. II способ');
    writeln('3. III способ');
    writeln('4. Выход');
    readln(n);
      case n of
        1 : cyclearray;
        2 : cyclerepeat;
        3 : cyclegoto;
        4 : break;
      end;
  until n = 4;
end.