Имеется конечная последовательность чисел (количество чисел не превышает 1000), количество задается с клавиатуры. Найдите попарные суммы её соседних членов. Например, последовательность. Например
2 7 10 5
Превратится в
2+7, 7+10, 10+5
То есть в
9 17 15
На Паскаль АБС .

program naoborot;

uses crt;

var n,a,b: integer;

begin

clrscr;

write('введите натуральное число: ');

readln(x);

n: =x;

while n> =1 do

begin

a: =n mod 10;

n: =n div 10;

b: =b*10+a;

end;

write('прочтение цифр числа справа налево: ',b)

end.

революция 1917 года и великая отечественная война (1941-1945)

фамилия

                  имя

          отчество

program vvl;

var x: integer;

      v: real;

begin

write('x=');

readln (x);

v: = abs(a)-2;

writeln ('v='; v: 2: 1);

end.