Напишите программу, Дан целый одномерный массив А, неотрицательных чисел, с…

Program lol; Const n=6; var a: array [1… n] of integer; i,s: integer; begin begin for i: =1 to n do readln (a[i]); end; s: =a[1]+a[2]; for i: =2 to n do begin if s> (a[i]+a[i-1]) then s: =a[i]+a[i-1]; end; writeln (s); end.