Вывод строкового значения целого числа (до 999млрд).

разработать диалоговую программу преобразования численных значений в из строковый эквивалент.

в диалоговом режиме:

1.1. пользователь вводит значение целого числа

1.2. программа выводит строковое значение введенного числа.

примеры записей (склонений) наименований значений чисел:

• один, два, три, четыре, пять, шесть, семь, восемь, девять;

• десять, одиннадцать, двенадцать, тринадцать, четырнадцать, пятнадцать шестнадцать, семнадцать, восемнадцать, девятнадцать;

• двадцать тридцать сорок пятьдесят шестьдесят семьдесят восемьдесят девяносто;

• сто двести триста четыреста пятьсот шестьсот семьсот восемьсот девятьсот;

• 1 (одна) тысяча 2 3 4 тысячи 5 6,7,8, тысяч

• 1 миллион 2 3,4 миллиона 5,6,7,8, миллионов

• 1 миллиард 2 3 4 миллиарда миллиардов

​

var

  A, B, N, i: integer;

begin

  N:= 0;  //Обнуляем счетчик

  writeln('Введите числа A и B');

  readln(A, B); //Вводим А и B

  if A < B then  {Если А < B, то печатаем числа начиная с B и заканчивая A, 

иначе наоборот}

    for i:= B downto A do

    begin

      write(i, '  ');  //Печатаем i

      inc(N);  //Увеличиваем счетчик на 1

    end

  else 

    for i:= A downto B do

    begin

      write(i, '  ');

      inc(N);

    end;

  writeln;

  writeln('Количество N этих чисел равно:  ', N);  //Выводим N

end.

Если все правильно, отметь решение как лучшее)

var

  A, B, N, i: integer;

begin

  N:= 0;  //Обнуляем счетчик

  writeln('Введите числа A и B');

  readln(A, B); //Вводим А и B

  if A < B then  {Если А < B, то печатаем числа начиная с B и заканчивая A, 

иначе наоборот}

    for i:= B downto A do

    begin

      write(i, '  ');  //Печатаем i

      inc(N);  //Увеличиваем счетчик на 1

    end

  else 

    for i:= A downto B do

    begin

      write(i, '  ');

      inc(N);

    end;

  writeln;

  writeln('Количество N этих чисел равно:  ', N);  //Выводим N

end.

Если все правильно, отметь решение как лучшее)