program rabotaet;

var
   i, n, coren, n1, n2, n3, n4: integer;
   Flag, FlagProstoe: Boolean;
   s: String;

begin
   for n := 1000 to 9999 do
   begin
      n1 := n div 1000;
      n2 := n div 100 mod 10;
      n3 := n div 10 mod 10;
      n4 := n mod 10;
      if (n1 = n2) and (n3 = n4) then
      begin
         Flag := False;
         coren := trunc(sqrt(n));
         for i := 2 to coren do
            if n mod i = 0 then
            begin
               Flag := True;
               break;
            end;
         if not(Flag) then
         begin
            Writeln('Prostoe ', n);
            FlagProstoe := True;
         end;
      end;
   end;
   if not(FlagProstoe) then
      Writeln('No solution');
   Readln;
end.