1)
var
  a, b: integer;

begin
  readln(a);
  foreach e: char in a.ToString() do //Проходит по каждому символу в строке, полученной путём преобразования числа
    if (Byte.Parse(e) mod 2 = 0) then
      inc(b); //Увеличивает значение на 1
  writeln(b);
end.
====================== 2 в файле
3)
var
  a, n: integer;

begin
  readln(a, n);
  writeln(power(a, n)); //power возводит число в указанную степень
end.