program AbsValue;

var
x, y: Integer;

begin
// Ввод значения y
write${}^{\prime }Enterthevalueofy{:}^{\prime }$;
readln$y$;

// Определяем значение x
if y >= 0 then
x := y
else
x := -y;

// Выводим результат
writeln${}^{\prime }Theabsolutevalueofxis{:}^{\prime },x$;

end.