с информатикой с подробным объяснением

р треугольника= сложить все стороны

s: = str(number);

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

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

разрабатывать алгоритмы может только человек.

исполняют алгоритмы    люди и всевозможные устройства – компьютеры,  роботы, станки, спутники, сложная бытовая техника и даже детские  игрушки.

var a: array[1..10] of integer;

p,i: integer;

begin

  p: =1;

  for i: = 1 to 10 do begin

      a[i]: =i+i*i;

      if odd(i) then begin

          writeln(a[i]);

          p: =p*a[i];

      end;

  end;

  writeln(p);

end.