#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
int /*<<< orphan*/ insertion(int *, int);
int /*<<< orphan*/ printf(char *, int);
int /*<<< orphan*/ scanf(char *, int *);
int main() {
  int i, j, k, w, flag = 0, n, unit, x;
  int arr[100000];
  scanf("%d", &n);
  for (i = 0; i < n; i++) {
    scanf("%d", &arr[i]);
  }
  insertion(arr, n);
  i = 0;
  unit = 0;
  while (i < n) {
    flag = 0;
    w = arr[i];
    unit++;
    x = i;
    for (j = x + 1; j <= n; j++) {
      flag = 0;
      if (arr[j] <= (w + 4) && arr[j] >= w) {
        i++;
        flag = 1;
      }
      if (flag == 0)
        break;
    }
    if (flag == 0) {
      i++;
    }
  }
  printf("%d", unit);
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x61ab0,%rsp
movl   $0x0,-0x4(%rbp)
movl   $0x0,-0x18(%rbp)
lea    0xeb0(%rip),%rdi
lea    -0x1c(%rbp),%rsi
call   1050 <scanf@plt>
movl   $0x0,-0x8(%rbp)
mov    -0x8(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    1198 <main+0x68>
movslq -0x8(%rbp),%rax
lea    -0x61ab0(%rbp),%rsi
shl    $0x2,%rax
add    %rax,%rsi
lea    0xe7b(%rip),%rdi
call   1050 <scanf@plt>
mov    -0x8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x8(%rbp)
jmp    1160 <main+0x30>
lea    -0x61ab0(%rbp),%rdi
mov    -0x1c(%rbp),%esi
call   1040 <insertion@plt>
movl   $0x0,-0x8(%rbp)
movl   $0x0,-0x20(%rbp)
mov    -0x8(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    1278 <main+0x148>
movl   $0x0,-0x18(%rbp)
movslq -0x8(%rbp),%rax
mov    -0x61ab0(%rbp,%rax,4),%eax
mov    %eax,-0x14(%rbp)
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
mov    -0x8(%rbp),%eax
mov    %eax,-0x24(%rbp)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xc(%rbp)
mov    -0xc(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jg     1260 <main+0x130>
movl   $0x0,-0x18(%rbp)
movslq -0xc(%rbp),%rax
mov    -0x61ab0(%rbp,%rax,4),%eax
mov    -0x14(%rbp),%ecx
add    $0x4,%ecx
cmp    %ecx,%eax
jg     123e <main+0x10e>
movslq -0xc(%rbp),%rax
mov    -0x61ab0(%rbp,%rax,4),%eax
cmp    -0x14(%rbp),%eax
jl     123e <main+0x10e>
mov    -0x8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x8(%rbp)
movl   $0x1,-0x18(%rbp)
cmpl   $0x0,-0x18(%rbp)
jne    124d <main+0x11d>
jmp    1260 <main+0x130>
jmp    1252 <main+0x122>
mov    -0xc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xc(%rbp)
jmp    11ee <main+0xbe>
cmpl   $0x0,-0x18(%rbp)
jne    1273 <main+0x143>
mov    -0x8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x8(%rbp)
jmp    11b5 <main+0x85>
mov    -0x20(%rbp),%esi
lea    0xd7e(%rip),%rdi
call   1030 <printf@plt>
xor    %eax,%eax
add    $0x61ab0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %r15
push   %r14
push   %rbx
sub    $0x61a90,%rsp
lea    0xebd(%rip),%rdi
lea    0xc(%rsp),%rsi
call   1050 <scanf@plt>
mov    0xc(%rsp),%esi
test   %esi,%esi
jle    118d <main+0x5d>
lea    0x10(%rsp),%r15
xor    %ebx,%ebx
lea    0xe9d(%rip),%r14
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
mov    %r14,%rdi
mov    %r15,%rsi
call   1050 <scanf@plt>
add    $0x1,%rbx
movslq 0xc(%rsp),%rsi
add    $0x4,%r15
cmp    %rsi,%rbx
jl     1170 <main+0x40>
lea    0x10(%rsp),%rdi
call   1040 <insertion@plt>
mov    0xc(%rsp),%eax
test   %eax,%eax
jle    11f0 <main+0xc0>
xor    %r8d,%r8d
xor    %esi,%esi
jmp    11c0 <main+0x90>
cs nopw 0x0(%rax,%rax,1)
mov    %r8d,%ecx
add    $0x1,%ecx
add    $0x1,%esi
mov    %ecx,%r8d
cmp    %eax,%ecx
jge    11f2 <main+0xc2>
cmp    %eax,%r8d
jge    11b0 <main+0x80>
movslq %r8d,%rcx
mov    0x10(%rsp,%rcx,4),%edi
lea    0x4(%rdi),%ebx
nop
mov    0x14(%rsp,%rcx,4),%edx
cmp    %ebx,%edx
jg     11b3 <main+0x83>
cmp    %edi,%edx
jl     11b3 <main+0x83>
add    $0x1,%rcx
cmp    %rcx,%rax
jne    11d0 <main+0xa0>
mov    %eax,%ecx
cmp    %eax,%r8d
jge    11b3 <main+0x83>
mov    %eax,%ecx
jmp    11b6 <main+0x86>
xor    %esi,%esi
lea    0xe07(%rip),%rdi
call   1030 <printf@plt>
xor    %eax,%eax
add    $0x61a90,%rsp
pop    %rbx
pop    %r14
pop    %r15
ret

LLVM IR (-O0):
@.str = [3 x i8] c"%d\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca i32
%3 = alloca i32
%4 = alloca i32
%5 = alloca i32
%6 = alloca i32
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca [100000 x i32]
store i32 0, i32* %1
store i32 0, i32* %6
%11 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %7)
store i32 0, i32* %2
br label %12
12: ; preds = %21, %0
%13 = load i32, i32* %2
%14 = load i32, i32* %7
%15 = icmp slt i32 %13, %14
br i1 %15, label %16, label %24
16: ; preds = %12
%17 = load i32, i32* %2
%18 = sext i32 %17 to i64
%19 = getelementptr inbounds [100000 x i32], [100000 x i32]* %10, i64 0, i64 %18
%20 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %19)
br label %21
21: ; preds = %16
%22 = load i32, i32* %2
%23 = add nsw i32 %22, 1
store i32 %23, i32* %2
br label %12
24: ; preds = %12
%25 = getelementptr inbounds [100000 x i32], [100000 x i32]* %10, i64 0, i64 0
%26 = load i32, i32* %7
%27 = call i32 @insertion(i32* %25, i32 %26)
store i32 0, i32* %2
store i32 0, i32* %8
br label %28
28: ; preds = %78, %24
%29 = load i32, i32* %2
%30 = load i32, i32* %7
%31 = icmp slt i32 %29, %30
br i1 %31, label %32, label %79
32: ; preds = %28
store i32 0, i32* %6
%33 = load i32, i32* %2
%34 = sext i32 %33 to i64
%35 = getelementptr inbounds [100000 x i32], [100000 x i32]* %10, i64 0, i64 %34
%36 = load i32, i32* %35
store i32 %36, i32* %5
%37 = load i32, i32* %8
%38 = add nsw i32 %37, 1
store i32 %38, i32* %8
%39 = load i32, i32* %2
store i32 %39, i32* %9
%40 = load i32, i32* %9
%41 = add nsw i32 %40, 1
store i32 %41, i32* %3
br label %42
42: ; preds = %69, %32
%43 = load i32, i32* %3
%44 = load i32, i32* %7
%45 = icmp sle i32 %43, %44
br i1 %45, label %46, label %72
46: ; preds = %42
store i32 0, i32* %6
%47 = load i32, i32* %3
%48 = sext i32 %47 to i64
%49 = getelementptr inbounds [100000 x i32], [100000 x i32]* %10, i64 0, i64 %48
%50 = load i32, i32* %49
%51 = load i32, i32* %5
%52 = add nsw i32 %51, 4
%53 = icmp sle i32 %50, %52
br i1 %53, label %54, label %64
54: ; preds = %46
%55 = load i32, i32* %3
%56 = sext i32 %55 to i64
%57 = getelementptr inbounds [100000 x i32], [100000 x i32]* %10, i64 0, i64 %56
%58 = load i32, i32* %57
%59 = load i32, i32* %5
%60 = icmp sge i32 %58, %59
br i1 %60, label %61, label %64
61: ; preds = %54
%62 = load i32, i32* %2
%63 = add nsw i32 %62, 1
store i32 %63, i32* %2
store i32 1, i32* %6
br label %64
64: ; preds = %61, %54, %46
%65 = load i32, i32* %6
%66 = icmp eq i32 %65, 0
br i1 %66, label %67, label %68
67: ; preds = %64
br label %72
68: ; preds = %64
br label %69
69: ; preds = %68
%70 = load i32, i32* %3
%71 = add nsw i32 %70, 1
store i32 %71, i32* %3
br label %42
72: ; preds = %67, %42
%73 = load i32, i32* %6
%74 = icmp eq i32 %73, 0
br i1 %74, label %75, label %78
75: ; preds = %72
%76 = load i32, i32* %2
%77 = add nsw i32 %76, 1
store i32 %77, i32* %2
br label %78
78: ; preds = %75, %72
br label %28
79: ; preds = %28
%80 = load i32, i32* %8
%81 = call i32 @printf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32 %80)
ret i32 0
}

LLVM IR (-O2):
@.str = [3 x i8] c"%d\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca [100000 x i32]
%3 = bitcast i32* %1 to i8*
%4 = bitcast [100000 x i32]* %2 to i8*
%5 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %1)
%6 = load i32, i32* %1
%7 = icmp sgt i32 %6, 0
br i1 %7, label %8, label %16
8: ; preds = %0, %8
%9 = phi i64 [ %12, %8 ], [ 0, %0 ]
%10 = getelementptr inbounds [100000 x i32], [100000 x i32]* %2, i64 0, i64 %9
%11 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %10)
%12 = add nuw nsw i64 %9, 1
%13 = load i32, i32* %1
%14 = sext i32 %13 to i64
%15 = icmp slt i64 %12, %14
br i1 %15, label %8, label %16
16: ; preds = %8, %0
%17 = phi i32 [ %6, %0 ], [ %13, %8 ]
%18 = getelementptr inbounds [100000 x i32], [100000 x i32]* %2, i64 0, i64 0
%19 = call i32 @insertion(i32* %18, i32 %17)
%20 = load i32, i32* %1
%21 = icmp sgt i32 %20, 0
br i1 %21, label %22, label %53
22: ; preds = %16
%23 = zext i32 %20 to i64
br label %24
24: ; preds = %22, %50
%25 = phi i32 [ %51, %50 ], [ 0, %22 ]
%26 = phi i32 [ %30, %50 ], [ 0, %22 ]
%27 = sext i32 %25 to i64
%28 = getelementptr inbounds [100000 x i32], [100000 x i32]* %2, i64 0, i64 %27
%29 = load i32, i32* %28
%30 = add nuw nsw i32 %26, 1
%31 = icmp slt i32 %25, %20
br i1 %31, label %32, label %47
32: ; preds = %24
%33 = add nsw i32 %29, 4
br label %36
34: ; preds = %36
%35 = icmp eq i64 %38, %23
br i1 %35, label %44, label %36
36: ; preds = %32, %34
%37 = phi i64 [ %27, %32 ], [ %38, %34 ]
%38 = add nsw i64 %37, 1
%39 = getelementptr inbounds [100000 x i32], [100000 x i32]* %2, i64 0, i64 %38
%40 = load i32, i32* %39
%41 = icmp sgt i32 %40, %33
%42 = icmp slt i32 %40, %29
%43 = or i1 %41, %42
br i1 %43, label %45, label %34
44: ; preds = %34
br i1 %31, label %50, label %47
45: ; preds = %36
%46 = trunc i64 %37 to i32
br label %47
47: ; preds = %24, %45, %44
%48 = phi i32 [ %20, %44 ], [ %46, %45 ], [ %25, %24 ]
%49 = add nsw i32 %48, 1
br label %50
50: ; preds = %44, %47
%51 = phi i32 [ %49, %47 ], [ %20, %44 ]
%52 = icmp slt i32 %51, %20
br i1 %52, label %24, label %53
53: ; preds = %50, %16
%54 = phi i32 [ 0, %16 ], [ %30, %50 ]
%55 = call i32 @printf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32 %54)
ret i32 0
}