найти сумму элементов кратных 5 в одновременном массиве

проверила ...всё работает

Ответ во вложенном файле

program zadacia;const n=10;var a :array [1..n] of integer;s,i:integer;beginwriteln('vvedite massiv=');for i :=1 to n doreadln(a[i]);s:=0;for i:= 1 to n doif a[i] mod 5 =0 then s:=s+a[i];writeln('s=',s);readln;end.