Какое значение появится в ячейке F2 (в соответствии с внесенной в эту ячейку формулой)?

объединение северного и южного египта произошло около 3000 г. до н.э.

var

i,s: integer;

begin

s: =0;

for i: =2 to 5 do

s: =s+i*i;

writeln(s);

end.

аборигеном                                                                                                                                                                                                                             

s: = str(number);

for : = 1 to length(s)  div 2 do

  if s[i] < > s[length(s) - i + 1] then writeln("не палиндром")ж