others/volume1/023.pas


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

uses strutils, cmath;

var
  n, u: int64;
  s: string;
  code: word;

begin
  readln(n);
  str(n, s);
  val(reversestring(s), u, code);
  if isprime(n) and
     isprime(u) then
    writeln('YES')
  else
    writeln('NO')
end.