с заданием по инфoматике. много гарантирую

Трехзначное число является палиндромом если первая и третья цифры в десятичной записи равны между собой.

/* функция определения палиндром или нет.
 * параметр - исходное число.
 * возвращает не 0, если палиндром, 0 - если не палиндром */
int is_palindrom (int x)  {
  /* вычисляем первую (младшую) цифру в десятичной записи */
  int digit1 = x % 10;
  /* вычисляем третью (старшую) цифру в десятичной записи */
  /* по условию на входе 3-значное число, поэтому без доп. % 10 */
  int digit3 = x / 100;  
  return (digit1 == digit3);
}

№1
var o,c,k,n,i,j,a,s:longint;l:array[1..1000]of longint;beginwriteln('введите количство чисел в спискe');readln(n);writeln('введите числа из списка по одному');for i:=1 to n doreadln(l[i]);writeln;writeln('введите число которое нужно вставлять');readln(o);writeln('введите число после которого нужно вставить ' ,o,' в список');readln(k);s:=n;for i:=n downto 1 do if l[i]=k then begins:=s+1;for j:=s downto i+1 dol[j]:=l[j-1];l[i+1]:=o;end;for i:=1 to s  do write(l[i],' ');
end.
№2
var c,k,n,i,j,a:longint;l:array[1..1000]of longint;beginwriteln('введите количство чисел в спискe');readln(n);writeln('введите числа из списка по одному');for i:=1 to n doreadln(l[i]);writeln;writeln('введите номер числа которое нужно удалить из списка');readln(k);for i:=k to n do l[i]:=l[i+1];n:=n-1;for i:=1 to n do write(l[i],' ');end.