Дано произвольное число К Если оно положительное то уменьшить на 6. в противном случае увеличить на 10

это если не учитывать 0. Если в условии его взять как положительное, то в 6 строчке после знака> добавить( без пробелов) знак=

program primer1;var k:integer;beginwriteln('введите K');readln(k);If k>0 then k:= k-6 else k:= k+10;write(k);End.