║program IIzad_summy_chisel;                                                      
║uses crt;                                                              
║var                                                                        
║ n,i:integer; a:array[1..10000] of integer;                                  
║begin                                                                        
║ clrscr;                                                                    
║ write('Сколько чисел вы будете вводить?  N=');
║ readln(n);                  
║ for i:=1 to n do read(a[i]);                                              
║ for i:=1 to n-1 do writeln('a',i,'+a',i+1,'=',a[i]+a[i+1]);                
║ readkey;                                                                  
║end.