#!/usr/athena/bin/perl
print "m = ";
$m=<>; chop $m;
print "n = ";
$n=<>; chop $n;
print "a = ";
$a=<>; chop $a;
print "b = ";
$b=<>; chop $b;
for($i=0;$i<$n;$i++) {
  $testval = $a + $m*$i;
  if(($testval % $n) == ($b % $n)) {
    print
	"$testval == $a	(mod $m)\n",
	"$testval == $b	(mod $n)\n";
  }
}