Var
n, sum, i, a: integer;
begin
read(n);
sum = 0;
for i := 1 to n do
begin
read(a);
if (a mod 5 = 0) then
sum := sum + a;
end;
write(sum);
end.
Смотря что Вы называете "суммой". Строки обычно не суммируются а соединяются с помощью операции конкатенации (слияния) строк.
Это можно сделать посредством обычой операции "плюс" (+), или с помощью встроенной функции Concat, аргументами которой являются исходные строки.
8(2^3) символов => каждый символ весит 3 бита
3б*120 = 360 Бит