Составить программу поиска в целочисленном массиве из 15 элементов двух рядом стоящих элементов, сумма которых больше 10, если таких элементов нет, вывести "no". в паскале.

Const n=15; var a: 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 (i< n) do   begin       if a[i]+a[i+1]> 10 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.

// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin   var (a,b,c): =readinteger3('сколько часов, минут и секунд надо на ? ');   var n: =readinteger('сколько ? ');   var t: =n*(c+60*b+3600*a);   write('будет затрачено ',t div 3600,' час ');   t: =t mod 3600;   write(t div 60,' мин ',t mod 60,' c') end. пример сколько часов, минут и секунд надо на ? 1 13 42 сколько ? 6 будет затрачено 7 час 22 мин 12 c

// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',50); a.println;   var n: =readinteger('xx=');   var l: =new list< integer> ;   foreach var t in a do begin       if t.iseven then l.add(n);       l.add(t)       end;   a: =l.toarray; a.println; end. пример n= 13 -27 41 -19 -34 -18 4 0 -10 -6 46 -47 47 -49 xx= 77 -27 41 -19 77 -34 77 -18 77 4 77 0 77 -10 77 -6 77 46 -47 47 -49