Среди 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[i]) ;

end;

for i:=1 to n do

begin

write (a[i]:4) ;

end;

writeln;

for i:=1 to n do

begin

begin

if (a[i] mod 2=0) then s:=s+a[i];

end;

begin

if (a[i] mod 5=0) then s1:=s1+a[i];

end;

end;

writeln ('Summa kratnix 2 = ', s) ;

writeln ('Summa kratnix 5 = ', s1) ;

end.