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

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

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