Разгодайте код и прочитайте с его пословицу 1, 2, 3, 4, 5, 1, 6 7, 8, 9, 10, 11 9, 4, 7, 4, 13, 12, 14

Копейка рубль бережет 1 к         11 ь 2 о         12 е 3 п         13 ж 4 е         14 т 5 й 6 а 7 р 8 у 9 б 10 л

Using  system; using  system.io; using  system.linq; namespace  fileapp {         class  mainclass         {                            private  static  int  multicast(char  first,char  second,  int  system)                 {                         return  convert.toint32(first.  system)  *  convert.toint32(second.  system);                 }                 private  static  void  method(string  numberstring,int  system)                 {                         int  firstandsecond  =  multicast(numberstring[0],  numberstring[1],  system);   //  первые  два                         int  lastandprevious  =  multicast(numberstring.  numberstring[numberstring.length  -  2],  system);   //последний  и  предпоследний                         int  firstandlast  =  multicast(numberstring.  numberstring.  system);   //  первый  и  последний                                                 console.writeline($"произведение  первых  двух  цифр:   {firstandsecond}");                         console.writeline($"произведение  последних  двух  цифр:   {lastandprevious}");                         console.writeline($"произведение  первой  и  последней  цифры:   {firstandlast}");                 }                 public  static  void  main(string[]  args)                 {                         console.write("введите  число:   ");                         string  numberstring  =  console.readline();   //число  в  виде  строки                         console.write("выберите  систему  счисления:   ");                         int  system  =  convert.toint32(console.; //система  счисления                         method(numberstring,  system);                         console.readline(); //задержка                 }         } }

Program znanija; var       a, res: array of integer;       x, n, i, k: integer; begin       readln(n);       setlength(a,n);       setlength(res,n);             for i : = 0 to n - 1 do               readln(a[i]);                     k : = 0;       for i : = 0 to n - 1 do                     if a[i] mod 3 = 0 then                     begin                             res[k] : = a[i];                             k : = k + 1;                     end;       for i : = 0 to k - 1 do               writeln(res[i]);         end.