Program PascalGuru;
 
function simple(x:integer):boolean;     {процедура проверки числа на "простоту"}
label 1;
  var i:longint;
      result: boolean;
begin
if (x=1) or (x=0) then begin result:=false; goto 1;  end;
  for i:=2 to x div 2 do
    if x mod i=0 then begin
       result:=false; goto 1; end;
    result:=true;
 
 
1:simple:=result;
end;  {***конец процедуры проверки числа на "простоту"}
{-------------------------------------------------------------------------------}
 
function svoistvo(ii:integer):boolean;
var s1,s2:integer;
begin
s1:=0; s2:=0;
    s1:=s1+(ii mod 10);
    ii:=ii div 10;
    s1:=s1+(ii mod 10);
    ii:=ii div 10;
    s2:=s2+(ii mod 10);
    ii:=ii div 10;
    s2:=s2+(ii mod 10);
    if s1=s2 then svoistvo:=true else svoistvo:=false;
end;
{-------------------------------------------------------------------------------}
 
var i:integer;
 
begin
 
for i:=1000 to 9999 do
                    if simple(i) then
                    if svoistvo(i)then writeln(i);
 
readln;
end.