Определить количество 8-значных чисел, у которых сумма цифр в цифровой записи числа больше, чем N

var
  k,n,s,i1,i2: longint;
begin
  k:=0;
  write('Введите число n: ');
  readln(n);
  for i1:=10000000 to 99999999 do
  begin
    i2:=i1;
    s:=0;
    while i2>0 do
      begin
        s:=s+i2 mod 10;
        i2:=i2 div 10;
      end;
    if s>n then inc(k);
  end;
  if k=0 then writeln('Нет чисел, удовлетворяющих условию') else
  writeln('Чисел, удовлетворяющих условию: ',k);
  readln;
end.

var
  n1,n2,m: longint;
  i,k,k1,k2: integer;
begin
  write('Введите натуральное число: ');
  readln(n1);
  n2:=n1;
  while n2>0 do
  begin
    n2:=n2 div 10;
    inc(k);
  end;
  if k=3 then
  begin
    k1:=n1 mod 10;
    k2:=n1 div 100;
    m:=((n1 div 10) mod 10)*10+k1*100+k2;
  end else m:=n1;
  writeln('Преобразованное число: ',m);
  readln;
end.

var
  n,i,k: integer;
begin
  writeln('Введите натуральное число: ');
  readln(n);
  for i:=1 to n do
    if n mod i = 0 then 
    begin
      inc(k);
      writeln(k,'-й делитель: ',i);
    end;
  readln;
end.

uses myUnit;
var
  n,x,y: longint;
begin
  repeat
  repeat
    writeln('Какую задачу решать? ');
    writeln('Чтобы решать 1-ю задачу - нажмите 1:');
    writeln('Чтобы решать 2-ю задачу - нажмите 2:');
    writeln('Чтобы решать 3-ю задачу - нажмите 3:');
    writeln('Чтобы выйти из программы - нажмите 0:');  
    readln(x);
  until x in [0..3];
  if x=0 then exit;
  write('Введите число n: ');
  readln(n);
  if x=1 then zad1(n)
    else if x=2 then zad2(n)
      else if x=3 then zad3(n);
  writeln('Продолжить?');
  writeln('Да - нажмите 1');
  writeln('Нет - нажмите 0');
  repeat
    readln(y);
  until y in [0..1];
  until y=0;
end.

unit myUnit;
 
interface
procedure zad1(n: integer);
procedure zad2(n1: longint);
procedure zad3(n: integer);
 
implementation
procedure zad1(n: integer);
var
  k,s,i1,i2: longint;
begin
  k:=0;
  for i1:=10000000 to 99999999 do
  begin
    i2:=i1;
    s:=0;
    while i2>0 do
      begin
        s:=s+i2 mod 10;
        i2:=i2 div 10;
      end;
    if s>n then inc(k);
  end;
  if k=0 then writeln('Нет чисел, удовлетворяющих условию') else
  writeln('Чисел, удовлетворяющих условию: ',k);
end;
 
procedure zad2(n1: longint);
var
  n2,m: longint;
  i,k,k1,k2: integer;
begin
  n2:=n1;
  while n2>0 do
  begin
    n2:=n2 div 10;
    inc(k);
  end;
  if k=3 then
  begin
    k1:=n1 mod 10;
    k2:=n1 div 100;
    m:=((n1 div 10) mod 10)*10+k1*100+k2;
  end else m:=n1;
  writeln('Преобразованное число: ',m);
end;
 
procedure zad3(n: integer);
var
  i,k: integer;
begin
  for i:=1 to n do
    if n mod i = 0 then 
    begin
      inc(k);
      writeln(k,'-й делитель: ',i);
    end;
end;
    
end.