Дан ряд из 10 произвольных чисел: a[1], a[2], ... , a[10] (использовать функцию random()). Подсчитать и напечатать суммы троек стоящих рядом чисел: a[1]+a[2]+a[3], a[2]+a[3]+a[4], a[3]+a[4]+a[5], …… , a[8]+a[9]+a[10]

var a: array [1..10] of integer;

var i,s: integer;

begin

randomize();

for i:=1 to 10 do

 begin

 a[i]:=random(10);

 write(a[i],' ');

 end;

writeln();

for i:=1 to 8 do

 begin

 s:=a[i]+a[i+1]+a[i+2];

 writeln('a[',i,']+a[',i+1,']+a[',i+2,'] = ',s);

 end;

end.

папирусы хранили в виде свитков, которые сворачивали в длинную папирусную ленту. эту ленту склеивали  из отдельных листов и заворачивали в трубку. именно в таких свитках дошли до нас древние тексты, хотя сохранились они хуже, чем письмена на глиняных табличках.

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.