Прошу помочь, как сделать (в Packal ABC) задание - Task('if3')! Отдам хоть всё!

Надеюсь это задание я сделал

Это нето(((

var n:integer; begin readln(n); if n > 0 then write(n-8); if n < 0 then write(n+6); if n = 0 then write(10); end.

var n:integer;beginreadln(n);if n > 0 then n:=n-8 else if n < 0 then n:=n+6  else n:=10;writeln(n);end.Пример:-51