Запишите код программы с операторов интегрированной среды​

Program a; var i,n,c: integer; mas1,mas2 : array[1..10000] of integer; begin     c: =1;   write('размер массива = '); read (n);   writeln('элементы массива: ');     for i: =1 to n do     begin     read (n);     if (n> 0) and (n< =10000) then begin     mas1[c]: =n;     inc(c);     end;     end;   n: =1;   writeln('выходные данные: ');     i: =1;   while i< =(c-1) do begin    mas2[n]: =mas1[i];                       inc(n);     i : = i + 3;     end; for i: =1 to n-1 do     write (mas2[i],' '); end.

Pascal: function sum(var m: matrix; n: integer; s1,s2: num): real; var   i,j: number;   s: real; begin   s: =0;   for i: =1 to n do       if i in s1 then           for j: =1 to n do               if j in s2 then s: =s+m[i,j];   sum: =s end; в pascalabc.net можно написать короче: function sum(var m: matrix; n: integer; s1,s2: num): real; var   i,j: number; begin   result: =0;   foreach i in s1 do       foreach j in s2 do result: =result+m[i,j] end;