;; тест 0: зміна знаку додатного
а = 42
результат = -а
очікуваний_результат = -42
якщо результат != очікуваний_результат
  впасти "тест 0: результат має бути %(очікуваний_результат), а рівно %(результат)"
кінець

;; тест 1: зміна знаку від'ємного
а = -42
результат = -а
очікуваний_результат = 42
якщо результат != очікуваний_результат
  впасти "тест 1: результат має бути %(очікуваний_результат), а рівно %(результат)"
кінець

;; тест 2: зміна знаку нуля
а = 0
результат = -а
очікуваний_результат = 0
якщо результат != очікуваний_результат
  впасти "тест 2: результат має бути %(очікуваний_результат), а рівно %(результат)"
кінець

;; тест 3: подвійна зміна знаку
а = 15
результат = -(-а)
очікуваний_результат = 15
якщо результат != очікуваний_результат
  впасти "тест 3: результат має бути %(очікуваний_результат), а рівно %(результат)"
кінець

;; тест 0
а = -15
результат = -а
очікуваний_результат = 15

якщо результат != очікуваний_результат
  впасти "результат має бути %(очікуваний_результат), а рівно %(результат)"
кінець

якщо результат != очікуваний_результат
  впасти "результат має бути %(очікуваний_результат), а рівно %(результат)"
кінець

якщо результат == очікуваний_результат
інакше
  впасти "результат має бути %(очікуваний_результат), а рівно %(результат)"
кінець

якщо результат == очікуваний_результат
інакше
  впасти "результат має бути %(очікуваний_результат), а рівно %(результат)"
кінець