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

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

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

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

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

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