Дано число, если оно отрицательное, то поменять знак, в противном случае увеличить в 2 раза (паскаль 8 кл)

var x: integer;beginwriteln('Введите число.');Readln (x);if x < 0 thenwriteln (x*(-1))elsewriteln (2*x);end.