var i, s: integer;n: real;d: array [1..12] of integer;beginfor i:=1 to 12 dobegin d[i]:= random(47)-23; write(d[i], \' \'); if d[i] mod 5 = 0 then begin s := s + 1; n:= n+d[i]; end;end;writeln(\'Количество чисел: \', s,\'. Сумма чисел: \', n, \'.\')end.