Дан массив из n элементов. определить сумму тех элементов, которые кратны 5

Сделал через динамический массив тоесть размер вводится с клавиатуры program project2;   {$apptype console} var a: array of integer;     i,n,s: integer; begin    randomize;   s: =0;     readln(n); //вводим размер массива с клавиатуры      setlength(a,n);   //задаем размер массива  for i: =0 to length(a) do    a[i]: =random(100);   //геним массив   for i: =0 to length(a) do    if a[i] mod 5 =0 then  //ищем сумму     s: =s+a[i];     writeln('summ: ',s);   //выводим сумму    readln; end.

Делим с остатком числа на 2 до тех пор, пока не получим 0. остатки выписываем в обратном порядке: 2544 / 2 =  1272, остаток 0 1272 / 2 =  636, остаток 0 636 / 2 = 318, остаток 0 318 / 2 = 159, остаток 0 159 / 2 = 79, остаток 1 79 / 2 = 39, остаток 1 39 / 2 = 19, остаток 1 19 / 2 = 9, остаток 1 9 / 2 = 4, остаток 1 4 / 2 = 2, остаток 0 2 / 2 = 1, остаток 0 1 / 2 = 0, остаток 1 теперь выписываем остатки в обратном порядке: 100111110000 8563 / 2 = 4281, остаток 1 4281 / 2 = 2140, остаток 1 2140 / 2 = 1070, остаток 0 1070 / 2 = 535, остаток 0 535 / 2 = 267, остаток 1 267 / 2 = 133, остаток 1 133 / 2 = 66, остаток 1 66 / 2 = 33, остаток 0 33 / 2 = 16, остаток 1 16 / 2 = 8, остаток 0 8 / 2 = 4, остаток 0 4 / 2 = 2, остаток 0 2 / 2 = 1, остаток 0 1 / 2 = 0, остаток 1 выписываем остатки в обратном порядке:   10000101110011

Повтори 3 раз   сместиться на (–2, –3)   сместиться на (3, 2)   сместиться на (–4, 0) конец для объединим команды в одну, то есть сложим все x и все y, чтобы узнать, как смещается чертёжник за один повтор цикла: x = -2 + 3 - 4 = -3 y = -3 + 2 + 0 = -1 то есть три команды в цикле мы можем заменить на "сместиться(-3, 1)" цикл совершает три повтора, то есть по оси x чертежник сместится на -3*3 = -9, а по оси y на -1*3 = -3 в итоге чертежник окажется в точке, которая смещена от исходной на (-9, -3), и чтобы вернуться в исходную, ему нужно выполнить команду "сместиться на (9, 3).