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

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

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

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

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

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

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

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

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