Написать программу , которая увеличивает число на 7, если оно меньше нуля и уменьшает на 2. Если исходное число больше 0

Спасибо)

Спасибо)

var x : real;begin   writeln ( 'Введите число : ');   readln (x);   if (x<0) then x:=x+7    else if (x>0) then x:=x-2;  writeln (' Конечное число : ',x);end.