[yurfed]

XPEHOMETP, судя по этому

i2:=i*i; i3:=i2*i;

Это попытка возведения в степень ^2 и ^3 соответственно действиям