#!/usr/bin/perl

# By Craig Kelley -- using perl 5.8.8

use strict;
use warnings;

while (my $line = <STDIN>) {
   $line =~ s/\s+//g;

   # reverse
   for (my $i = $line; $i>7; $i--) {
      my $reverse;
      for (my $j=(length($i) - 1); $j>=0; $j--) {
	 $reverse .= substr($i, $j, 1);
      }
      if ((($i % 7) == 0) && (($reverse % 7) == 0)) {
	 print "$i\n";
      }
   }
}