program min;
var
mis,hereh:integer;
function hm (x:real):integer;
var
y:real;
begin
if x<0 then
y:=x*(-1)
else y:=x;
hm:=y;
end;
begin
writeln('ten mispar');
readln(mis);
hereh:=hm(mis);
writeln(hereh);
readln;
end.