дан одномерный массив из 20 целых чисел найти сумму и проищвеедние тех элементов которые оканчсиваются на 5

const n=20;var a:array[1..n] of integer;s,p,i:integer;beginRandomize;for i:=1 to n do begin a[i]:=random(51); write(a[i],' '); end;writeln;s:=0; p:=1;for i:=1 to n do if a[i] mod 10 = 5 then begin s:=s+a[i]; p:=p*a[i]; end;writeln('s = ',s,' p = ',p);end.Пример (для n=10):18 43 5 30 46 39 21 26 19 25 s = 30 p = 125