Помогите пожалуйста решить 9 вариант ))

1)
var
  i, n, c, b, af, bf, a: integer;
 begin
  af := 0;
  bf := 0;
  c := 0;
  write(Введите число:);
  readln(n);
  writeln(Введите A,B:);
  readln(a, b);
  while n gt; 0 do
   begin
    if((n mod 10) mod 2 = 0) then c := c + 1;
    if(n mod 10 = a) then af := af + 1;
    if(n mod 10 = b) then bf := bf + 1;
    n := n div 10;
  end;
  writeln(Количество четных цифр: , c);
  if(af gt; 0) and (bf gt; 0) then write(Да)
  else write(Нет);
 end.
2)
var
  i: integer;
 begin
   for i := 1000 to 9999 do
    if((i mod 10) = (i div 1000)) and ((i mod 100 div 10) = (i div 100 mod 10)) then write(i, );
  end;
end.
3)
var
  n, c, a, b, i: longint;
 begin
  readln(a);
  n := a;
  b := a;
  while n gt; 0 do
   begin
    c := c + 1;
    n := n div 10;
  end;
  for i := 1 to c do b := b * 10;
  a := a + b;
  write(a);
end.