Вычисление суммы n-значных чисел, содержащих только нечетные цифры - Паскаль

Написать программу, определяющую сумму n- значных чисел, содержащих только нечетные цифры. Определить так же, сколько четных цифр в найденной сумме.

program chisla;

var
  n, sum, sum2, a, f1, stepen, stepen1, x, f, sum1: longint;

begin
  Writeln('введите n');
  readln(n);
  stepen := 1;
  sum := 0;
  for a := 1 to n do{возводим в степень}
  begin
    stepen := stepen * 10;
  end;
  writeln('определяем верхнюю границу диапазона');
  writeln(stepen);
  stepen1 := 1;
  
  for a := 1 to n - 1 do{возводим в степень}
  begin
    stepen1 := stepen1 * 10;
  end;
  writeln('определяем нижнюю границу диапазона');
  writeln(stepen1);
  
  sum1 := 0;
  
  for x := stepen1 to stepen - 1 do
  begin
    sum := 0;
    f := x;
    while (f <> 0 ) do 
    begin
      if (f mod 10) mod 2 = 0 then
        sum := sum + x;
      f := f div 10;
    end;
    
    if sum = 0 then 
    begin
      sum1 := sum1 + x;
    end;
    
  end;
  
  
  writeln('выводим сумму  нечетных чисел');
  writeln(sum1);
  
  
  f1 := sum1;
  sum2 := 0;
  while (f1 <> 0 ) do 
  begin
    if (f1 mod 10) mod 2 = 0 then
      sum2 := sum2 + 1;
    f1 := f1 div 10;
  end;  
  writeln('выводим количество четных цифр в получившейся сумме');
  writeln(sum2);  
  
end.

 Определение границ диапазона n- значных чисел в Паскале довольно громоздкое решение, и мы их определили как ряд чисел в диапазоне от 10^n-1  до 10^n.  Далее идет код программы, который выделяет нечетные цифры из числа и суммирует их. После получения суммы идет аналогичная обработка суммы и подсчитывается количество четных цифр в ней. Отдельно программа выделения цифр из числа представлена в другом уроке.

Автор: Лобанева Анастасия 9 класс.