Какие категории относятся к функции в информатике

program name;
var i,n,x,summa,count:integer;
nechet:boolean;
begin
Writeln('Vvedite n: ');
readln(n);//получаем n
summa:=0;
count:=0;
i:=1;
if(n mod 2 = 1) then nechet := true else nechet := false; //проверяем четное число или нет
while i<n do begin//пока число меньше n
if(nechet) then//если число нечентное
begin
summa:=summa+i*i*i;//прибавляем к сумме куб этого числа
end
else//если число четное
begin
summa:=summa+i*i;//прибавляем квадрат числа
end;
i:=i+1;//прибавляем число на 1
end;
writeln(' summa: ', summa);//выводим сумму
readln();
end.

25 (10cc) =2^4+2^3+2^0 =11001 (2cc)
19 (10cc)=2^4+2^1+2^0=10011 (2cc)

используя формулу А→В =¬А+В приводим данную формулу в условии к виду:
(X&25=0)+(X&19≠0) + (Х&A≠0)=1

рассмотрим случай, когда
(Х&25 =0) +(X&19≠0) =0   и  (Х&A≠0)=1

так как 25 = 11001, то (X&25=0) = 0   (т.е. конъюнкция будет "ложь")
при Х={1; 1000; 1001;  10000; 10001; 11000; 11001}

так как 19=10011, то (Х&19≠0) = 0 при
X={100; 1000;  1100}
                   общее значение : Х=1000 (2сс) = 8 (10сс)

ответ 8