[QMike]

Пишет тип выражения должен быть BOOLEAN, да и мне не ясно ля чего это

[QMike]

Кто поможет?

[ryderx34]

Сообщение от QMike

Пишет тип выражения должен быть BOOLEAN

Там небольшая опечатка просто, убери двоеточие выделенное красным:

Код:

if i := 1 then Sum := a
else Sum := Sum * a;