Вычислить y= │x-2│ по определению модуля на PascalABC

####################

program quess;

var x:integer;

begin

read(x);

write(abs(x-2));

end.