[ryderx34]

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

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

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

Код:

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