Составить программу поиска в целочисленном массиве из 15 элементов двух рядом…

Const n=15; vara: array [1… n] of integer; i: integer; p: boolean; begin p: =true; for i: =1 to n do begin write ('Введите A[',i,']: '); readln (a[i]); end; i: =1; while p and (i10 then begin p: =false; writeln; writeln (' (A[',i,']=',a[i],')+(A[',i+1,']=',a[i+1],') > 10'); end; inc (i); end; writeln; if p then writeln ('NO'); end.