program keygen;

var
code         : longint;
input        : string;
error        : integer;


begin

 writeln('Morpher - Keygen by Quantico MEX/C4N');
 write('Enter a number x such that x > 80870 : ');
 readln(input);
 val(input, code, error);
 IF error <> 0 THEN begin
   writeln(input, ' is an invalid input, try again.....');
   halt;
   end;
 IF code < 80870 THEN begin
 writeln(input, ' is not greater than 80870');
 halt;
 end;
 code := (code DIV 8087)*8087;
 writeln('A valid code is : ', code);

  
 

end.