Давайте поочередно разберем оба задания.

Задание 1: Дано натуральное число n. Нужно вывести цифру, которая находится в разряде i, и определить, сколько цифр в числе.

1. Сначала нужно получить число n от пользователя. В Паскале это можно сделать с помощью команды ReadLn(n);.
2. Чтобы определить количество цифр в числе n, мы можем использовать цикл, который будет делить число на 10, пока оно не станет равным 0. Каждый раз, когда мы делим, мы увеличиваем счетчик.
3. Для получения цифры в разряде i, мы можем использовать деление и остаток от деления. Например, чтобы получить цифру в разряде i, нужно сначала разделить число n на 10 в степени (i-1), а затем взять остаток от деления на 10.

Пример кода для задания 1:

var
  n, i, digit, count: Integer;
begin
  Write('Введите натуральное число n: ');
  ReadLn(n);
  
  // Определяем количество цифр
  count := 0;
  var temp := n;
  while temp > 0 do
  begin
    temp := temp div 10;
    count := count + 1;
  end;

  WriteLn('Количество цифр в числе: ', count);

  // Запрашиваем разряд
  Write('Введите разряд i: ');
  ReadLn(i);
  
  // Проверяем, что i не больше количества цифр
  if (i > 0) and (i <= count) then
  begin
    digit := (n div Trunc(Power(10, i - 1))) mod 10;
    WriteLn('Цифра в разряде ', i, ': ', digit);
  end
  else
    WriteLn('Ошибка: разряд i выходит за пределы количества цифр.');
end.

Задание 2: Дано натуральное число n. Нужно определить, каких цифр в числе больше: четных или нечетных.

1. Сначала также получаем число n от пользователя.
2. Создаем два счетчика: один для четных цифр и другой для нечетных.
3. Используем цикл, чтобы пройти по каждой цифре числа. Для этого можно использовать тот же метод, что и в первом задании, деля число на 10 и проверяя остаток.
4. Если остаток от деления на 10 четный, увеличиваем счетчик четных цифр, иначе — нечетных.
5. В конце сравниваем два счетчика и выводим результат.

Пример кода для задания 2:

var
  n, evenCount, oddCount, digit: Integer;
begin
  Write('Введите натуральное число n: ');
  ReadLn(n);
  
  evenCount := 0;
  oddCount := 0;
  
  while n > 0 do
  begin
    digit := n mod 10; // Получаем последнюю цифру
    if digit mod 2 = 0 then
      evenCount := evenCount + 1
    else
      oddCount := oddCount + 1;
    
    n := n div 10; // Убираем последнюю цифру
  end;

  if evenCount > oddCount then
    WriteLn('Четных цифр больше: ', evenCount)
  else if oddCount > evenCount then
    WriteLn('Нечетных цифр больше: ', oddCount)
  else
    WriteLn('Четных и нечетных цифр поровну: ', evenCount);
end.

Надеюсь, это поможет вам решить задания! Если у вас есть дополнительные вопросы, не стесняйтесь спрашивать.