Склавиатуры вводится натуральное число, не превосходящее 1000. представить его в виде соответствующей словесной записи в паскале

Var   m, n: integer;   ms: array[1..9] of string;   md: array[1..9] of string;   m1: array[11..19] of string;   me: array[1..9] of string;   flag: boolean; begin     flag : = false; { пока ничего не выведено }   ms[1] : = 'сто'; ms[2] : = 'двести'; ms[3] : = 'триста'; ms[4] : = 'четыреста';   ms[5] : = 'пятьсот'; ms[5] : = 'пятьсот'; ms[6] : = 'шестьсот'; ms[7] : = 'семьсот';   ms[8] : = 'восемьсот'; ms[9] : = 'девятьсот';   md[1] : = 'десять'; md[2] : = 'двадцать'; md[3] : = 'тридцать'; md[4] : = 'сорок';   md[5] : = 'пятьдесят'; md[6] : = 'шестьдесят'; md[7] : = 'семьдесят';   md[8] : = 'восемьдесят'; md[9] : = 'девяносто';   m1[11] : = 'одиннадцать'; m1[12] : = 'двенадцать'; m1[13] : = 'тринадцать';   m1[14] : = 'четырнадцать'; m1[15] : = 'пятнадцать'; m1[16] : = 'шестнадцать';   m1[17] : = 'семнадцать'; m1[18] : = 'восемнадцать'; m1[19] : = 'девятнадцать';   me[1] : = 'один'; me[2] : = 'два'; me[3] : = 'три'; me[4] : = 'четыре'; me[5] : = 'пять';   me[6] : = 'шесть'; me[7] : = 'семь'; me[8] : = 'восемь'; me[9] : = 'девять';     write('введите целое число от 1 до 1000: ');   readln(m);   if (m < 1) or (m > 1000) then writeln('шутки шутим? ')   else   if m = 1000 then writeln('одна тысяча ')       else   begin           { сотни }       n : = m div 100;       if n > 0 then       begin           write(ms[n]);           flag : = true       end;           { десятки }       m : = m mod 100;       if m = 0 then writeln(' ')       else       begin           if (m > 10) and (m < 20) then           begin               if flag then write(' ');               writeln(m1[m])           end           else           if m > 0 then           begin               n : = m mod 10;               m : = m div 10;               if m > 0 then               begin                   if flag then write(' ') else flag : = true;                   write(md[m])               end;               if n < > 0 then               begin                   { единицы }                   if flag then write(' ');                   write(me[n]);               end           end       end   end end. тестовое решение: введите целое число от 1 до 1000: 429 четыреста двадцать девять

Var   a: array of byte; //мы ведь не хотим выйти за пределы даже  int64?   n, i: byte;           //больше и не пригодится, массива из 255 значений хватит уж   l: int64 : = 1;       //произведение - большая цыферка begin   readln(n);   system.array.resize(a, n);   for i : = 0 to (n - 1) do   begin     write('a[', i, '] = ');     readln(a[i]);     l *= a[i];   end;   writeln(l); end.

Using system; namespace consoleapp {       internal class program {             private static void main() {                   var number = 0;                   int n;                   do {                         console.writeline("введите число");                         n = convert.toint32(console.;                         if (n ! = 0 & & (n % 5 == 0 || n % 7 == 0)) {                               number++;                         }                   } while (n ! = 0);                   console.writeline("кол-во = " + number);                   console.readkey();             }       } }