Программу в Pascal Составить программу

Задача:

Дано число А если А больше 0 то уменьшить на 8 иначе увеличить на 6.

readln(a);

if a > 0 then a := a + 1;

writeln(a);