const
  N = 15;
var
  arr: array[1..N] of integer;
  valueOfNumbers, i: integer;
begin
  for i := 1 to N do
    begin
      arr[i] := Random(51) - 10;
      if arr[i] mod 10 = 3 then
        begin
          valueOfNumbers := valueOfNumbers + 1;
          // если требуется найти сумму, разыменовываем (убираем {})
          // и закомментируем первую строчку в блоке условия (ставим перед выражением //)
          {valueOfNumbers := valueOfNumbers + arr[i];}
        end;
    end;
  Writeln('Всего: ', valueOfNumbers);
end.