NOIP2011T1 数字反转

 

 

var
    n,m,c:longint;
begin
    assign(input,'reverse.in'); reset(input);
    assign(output,'reverse.out'); rewrite(output);
    readln(n);
    if n<0 then begin n:=-n; write('-'); end;
    m:=0;
    while n>0 do
    begin
        m:=m*10+n mod 10;
        n:=n div 10;
    end;
    writeln(m);
    close(input); close(output);
end.