1) Решение с массивами
var
a: array[1..20] of longint;
i, sum: longint;
begin
for i:=1 to 20 do
begin
read(a[i]);
if a[i] mod 6=0 then sum:=sum+a[i];
end;
writeln(sum);
end.
Постановка задачи позволяет отказаться от использования массивов и работать только с тремя целочисленными переменными.
2) Решение без массивов
var
x, i, sum: longint;
begin
for i:=1 to 20 do
begin
read(x);
if x mod 6=0 then sum:=sum+x;
end;
writeln(sum);
end.