Для решения какой задачи предназначен приведенный ниже фрагмент программы: For i:=1 to n do
If (a[i] mod 5 = 0) and ( a[i]>0) then k:=k+1;