5a44eb2 ^
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
uses clib; var n: int16; a, s: int64; begin s := 0; readln(n); repeat read(a); if isprime(a) then s := s + a; dec(n) until n = 0; writeln(s) end.