Среди 20 вводимых...

Среди 20 вводимых чисел выберите все кратные 2 или кратные 5 и подсчитайте их сумму. (ВПаскале)

 

var a:array[1..10] of integer;
s,s1:longint;
i,n:integer;
begin
n:=20;
s:=0; s1:=0;
for i:=1 to n do
begin
writeln('Vvedite element ',i);
read(a);
end;
for i:=1 to n do
begin
write(a:4);
end;
writeln;
for i:=1 to n do
begin
begin
if (a mod 2=0) then s:=s+a;
end;
begin
if (a mod 5=0) then s1:=s1+a;
end;
end;
writeln('Summa kratnix 2 = ',s);
writeln('Summa kratnix 5 = ',s1);
end.