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

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.