free pascal nhan mọi người

uses crt;
const max = 1000000;
var n,i,x: longint;
    a: array[1..max] of longint;
begin
    readln(n);
    for i := 1 to n do begin
        read(x);
        if (x < 1) or (x > n) then
        begin
            write('NO');
            exit;
        end else inc(a[x]);
    end;
    for i := 1 to n do
        if a[i] = 0 then
        begin
            write('NO');
            exit;
        end;
    write('YES');
end.