Чем можно заменить? - Pascal ABC

Формулировка задачи:

Дано натуральное число n. Получить S – сумму тех чисел вида i³-3in²+n ,(i=1,2,...,n), которые являются утроенными нечетны-ми. Если таких чисел нет – считать сумму равной 0.

var
  i,n,s: integer;
  x: integer;
begin
  write('N = ');
  readln(N);
  for I:=1 to N do
  begin
    X:=I*I*I-3*I*N*N+N;
    if (frac(x/3)=0) and(odd(round(x div 3))) then
    begin
      S:=S+X;
    end;
  end;
  Writeln(S);
  Readln;
end.

Можно ли сделать цикл без odd,round и frac?

хотя нет, не надо

Решение задачи: «Чем можно заменить?»

Листинг программы

var i,n,s,x: integer;
begin
write('N = ');
readln(N);
for i:=1 to n do
 begin
  x:=abs(i*i*i-3*i*n*n+n);
  writeln(x);
  if (x mod 3=0)and((x div 3)mod 2=1) then s:=s+x;
 end;
if s=0 then write('Нужных чисел нет')
else write('S=',s);
readln
end.

Объяснение кода листинга программы

var i,n,s,x: integer; - объявление переменных
write('N = '); - выводим значение переменной N
readln(N); - считываем значение переменной N
for i:=1 to n do - цикл от 1 до n
begin
x:=abs(iii-3in*n+n); - вычисляем значение переменной x
writeln(x); - выводим значение переменной x
if (x mod 3=0)and((x div 3)mod 2=1) then s:=s+x; - если условие выполняется, то увеличиваем значение переменной s
end;
if s=0 then write('Нужных чисел нет') - если значение переменной s равно 0, то выводим сообщение Нужных чисел нет
else write('S=',s); - иначе выводим значение переменной s
readln; - считываем ввод пользователя