`C++`

#include <bits/stdc++.h>
using namespace std;
bool f(int n)
{
    for (int i = 2; i <= sqrt(n); i++)
        if (n % i == 0)
            return false;
    return n > 1;
}
bool check(int n)
{
    int s = 0;
    for (int i = 2; i <= n; i++)
        if (f(i))
            s += i;
    return f(s);
}
int main()
{

    freopen("funcprime.inp","r",stdin);

    freopen("funcprime.out","w",stdout);
    int n;
    cin >> n;
    if (check(n))
        cout << "YES\n";
    else
        cout << "NO\n";
}
`Pascal`
function f(n:longint):boolean;
var i:longint;
begin
    for i := 2 to trunc(sqrt(n)) do
        if (n mod i = 0) then
            exit(false);
    exit(n > 1);
end;
function check(n: longint): boolean;
var i, s: longint;
begin
    s := 0;
    for i := 2 to n do
        if f(i) then
            s := s + i;
    exit(f(s));
end;
var n: longint;
begin

    assign(input,'funcprime.inp'); reset(input);

    assign(output,'funcprime.out'); rewrite(output);
    readln(n);
    if check(n) then
        writeln('YES')
    else
        writeln('NO');
end.