Дан массив,состоящий из 20 элементов.Необходимо найти элементы кратным 5 и найти сумму
Сделать блок-схему и программу,пжл!)
ОЧЕНЬ СРОЧНО НАДО!!!!

var
c:array [1..20] of integer;
i,n:integer;
Begin
randomize;
for i:=1 to 20 do
c[i]:=random(50);
for i:=1 to 20 do
write(c[i],' ');
for i:=1 to 20 do
if c[i] mod 5=0 then n:=n+c[i];
writeln;
writeln('Сумма: ',n);
End.