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

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

  • var a:array[1..10] of integer;
    s,s1:longint;
    i,n:integer;
    begin
    n:=10;
    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.