NK1002 NKPC1 Lucy's Problem

2007030103.pas

Var 
    x:array[1..15]OF longint;
    i,n:integer; 
Function cal(x:longint):longint; 
Begin 
    IF x>=50025002 
    THEN cal:=x-5 
    ELSE 
    Begin 
        repeat 
        inc(x,2000); 
        until x>=50025002; 
        cal:=x-5 
    End; 
End; 
Begin 
    i:=0; 
    repeat inc(i); readln(x[i]);until eof(input); 
    For n:=1 to i do writeln(cal(x[n])); 
End.