Хелп прошу молю информатику решить

//прога на pascal`e type   myrec = record   rost : byte;   ves : byte;   end; var   mas : array of myrec;   n, i : byte;   sumves, sumrost : longint; begin write ('введите кол-во учеников: '); readln (n); setlength (mas, n);   for i: =0 to n-1 do   begin   write ('введите вес ', i+1, '-го ученика: ');   readln (mas[i].ves);   inc (sumves,  mas[i].ves);   write ('введите рост  ', i+1, '-го ученика:   ');   readln (mas[i].rost);   inc (sumrost, mas[i].rost);   end; write ('средний вес учеников: ', sumves / n, '; средний рост: ', sumrost / n) end.

Using system; using system.collections.generic; using system.linq; using system.text; namespace consoleapplication4 {       class program       {               static void main(string[] args)               {                       console.writeline("введи длину массива");                       int n = int.parse(console.;                       int[] mass = new int[n];                       for (int i = 0; i < n; i++)                       {                               console.writeline("введи " + i + " элемент");                               mass[i] = int.parse(console.;                       }                       for (int i = 0; i < n; i++)                       {                               if (i == mass[i])                                       console.writeline("элемент " + i + " совпадает со своим индексом");                       }                       console.readkey();               }       } }