#!/usr/bin/perl -w
use strict;

my $num = 786603;
my $rem = $num % 100;
$num += (100 - $rem) if ($rem > 0);
print $num."\n";