Pascal :

var n:longint;
begin
 readln(n);
 writeln(abs(n));
end.