Пусть дано 100 целых чисел, которые вводятся по одному. Получите сумму тех из них, которые кратны 5 — Pascal(Паскаль)

var
a,i,s:integer;
begin
randomize;
for i:=1 to 100 do
begin
a:=random(50);
write(a,' ');
if a mod 5=0 then s:=s+a;
end;
writeln;
writeln('s=',s);
end.