Паскаль. с клавиатуры вводится целое число от 1 до 1000, обозначающая сумму в рублях. программа должна напечатать эту сумму прописью. пример: пятнадцать рублей.

Var   m, n: integer;   s1, s2, s3: string;   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; { пока ничего не выведено }   s1 : = 'рубль';   s2 : = 'рубля';   s3 : = 'рублей';   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('одна тысяча ' + s3)       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(' ', s3)       else       begin           if (m > 10) and (m < 20) then           begin               if flag then write(' ');               writeln(m1[m], ' ', s3)           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], ' ');                   case n of                       1: writeln(s1);                       2..4: writeln(s2);                   else writeln( s3)                   end               end               else writeln(' ', s3)           end       end   end end. тестовое решение: введите целое число от 1 до 1000: 314 триста четырнадцать рублей

program xxx;

  var i, n : integer;

begin

  write ('введите число n-');

  readln (n);

  writeln('делители числа: ');

  for i : =1 to n do

    if n mod i = 0 then writeln (i)

end.