Впоследовательности из n чисел найдите сумму тех которые делятся на 5​

Var       ar: array[1..53] of real;       i: integer; begin       randomize;             for i : = 1 to 8 do               readln(ar[i]);       for i : = 8 + 1 to 8 + 1 + 26 do               ar[i] : = random(41);       for i : = 8 + 1 + 26 + 1 to 53 do               ar[i] : = (i * i * i / -4) / (i + 2);             writeln('array: ');       for i : = 1 to 53 do               write(ar[i]: 4: 2, ' '); end.

//pascal abc.net v3.1 сборка 1219 const   n=5;   var   ar: array[1..n] of integer;   i,j,k: integer; begin k: =n;   for i: =1 to n do   readln(ar[i]);   i: =1;   while (i< > n) and (k< > 0) do   begin   if ar[i]< 0 then   begin     for j: =i to n-1 do     ar[j]: =ar[j+1];     dec(k);   end   else inc(i);   end;   writeln('final array: ');   for i: =1 to k do   write(ar[i]: 4); end.