задача pascal - Степени мнимой единицы. Для данного натурального числа k вычислить i^k.

[Ксения114]

помогите с задачей pascal (через условные операторы)
Степени мнимой единицы. Для данного натурального числа k вычислить i^k.
Пожалуйста, очень нужна помощь

[BDA]

Что вызывает сложности?
Без условных операторов:

const
  s = '- ';
  q = '1i';
...
write(s[1 + ord(k mod 4 < 2)], q[1 + k mod 2]);

[Ксения114]

если можно, мне нужно именно с условными операторами ( условие задачи)
И, пожалуйста, поподробнее. прошу

[BDA]

Я могу только подтолкнуть вас к решению, но писать за вас не буду.
Для начала нужно рассмотреть несколько степеней, чтобы увидеть закономерность:
i^1 = i
i^2 = -1
i^3 = -i
i^4 = 1
i^5 = i
Можно заметить повторение через 4 степени.
Осталось написать несколько условий с проверкой остатка (mod 4) и выводом соответствующего сообщения.

if ... then
  writeln(...)
else if ... then
...