С клавиатуры вводится N целых чисел a1, a2,….,aN. Найти сумму этих чисел. Вывести на экран в процессе ввода чисел: a1+a2, a2+a3, …. aN-1+aN

uses CRT;
 
var
n:integer;
choose:byte;
 
Procedure first(m:integer);
label l;
var
i, sum, last, t, a:integer;
Begin
  clrscr;
  i:=0;
  t:=0;
  sum:=0;
  writeln('Введите ' ,m, ' чисел, после ввода каждого числа нажмите Enter.');
  l:
    inc(i);
    inc(t);
    readln(a);
    sum:=sum+a;
    if t=1 then
      last:=a
    else if t=2 then begin
      writeln('Сумма чисел a[',i,'] и a[',i-1,']=',a+last,'.');
      t:=0;
    end;
    if i<m then
      goto l;
    writeln('Сумма введённых чисел=',sum,'.');
   readln;
End;
 
Procedure second(m:integer);
var
i, sum, t, a, last:integer;
Begin
  clrscr;
  i:=0;
  sum:=0;
  t:=0;
  writeln('Введите ' ,m, ' чисел, после ввода каждого числа нажмите Enter.');
  repeat
    inc(i);
    inc(t);
    readln(a);
    sum:=sum+a;
    if t=1 then
      last:=a
    else if t=2 then begin
      writeln('Сумма чисел a[',i,'] и a[',i-1,']=',a+last,'.');
      t:=0;
    end;
  until i=m;
  writeln('Сумма введённых чисел=',sum,'.');
  readln;
End;
 
Procedure third(m:integer);
var
mas:array[1..100] of integer;
i, t, sum:integer;
Begin
  clrscr;
  t:=0;
  sum:=0;
  writeln('Введите ' ,m, ' чисел, после ввода каждого числа нажмите Enter.');
  for i:=1 to m do begin
    inc(t);
    readln(mas[i]);
    sum:=sum+mas[i];
    if t=2 then begin
      t:=0;
      writeln('Сумма чисел a[',i,'] и a[',i-1,']=',mas[i]+mas[i-1],'.');
    end;
  end;
  writeln;
  writeln('Все введённые числа:');
  for i:=1 to m do
    write(mas[i],' ');
  writeln;
  writeln('Сумма всех введённых чисел=',sum,'.');
  readln;
End;
 
BEGIN
  clrscr;
  writeln('Данная программа считывает N целых чисел и выводит на экран в процессе ввода чисел: a1+a2, a2+a3, :. aN-1+aN.');
  writeln('Возможно 3 способа решения задачи:');
  writeln('I. Используя метки и оператор goto (не используя никакой цикл)');
  writeln('II. Используя цикл (repeat)');
  writeln('III. Используя массив');
  writeln('Введите число N.');
  repeat
    write('->');
    read(n);
    if n<=0 then
      writeln('N должно быть >=0 !');
  until n>0;
  writeln('Каким способом Вы хотите решить задачу(4-выход)?');
  repeat
    write('->');
    read(choose);
    if not(choose in [1..4]) then
      writeln('Ваш выбор должен быть в диапозоне [1..4]!');
  until choose in[1..4];
  case choose of
    1:first(n);
    2:second(n);
    3:third(n);
    4:halt;
  end;
END.