program exe1;
  var
    a,b:integer;
  begin
    writeln('insert negetive num');
    readln(a);
    b:=abs(a);
    writeln(b,' is the absolute num for a');
  end.