7класс найти стандартный набор команд pascal

#include< iostream> #include < stdlib.h> using namespace std; int main(){int a[10], i = 9, n=0, d=0; for (i; i > 0; {    a[i] = rand () % 21 + 10;     cout < < a[i] < < endl;     if(a[i] % 2 == 0){        n+= a[i];     }else{        d++;     } } cout < < "sum parnyh - " < < n < < endl; cout < < " kilkist neparnuh - " < < d; } 2 точно діапазон від 10 до 10?

Const     n = 10; var a: array[1..n] of integer; i,j: integer; begin write('исходный массив:               '); for i: = 1 to n do       begin       a[i]: =random(21)-10;       write(a[i],' ')       end; writeln; write('отсортированный массив: '); for j: = 1 to n div 2 do       for i: = 1 to n div 2-1 do               if a[i]> a[i+1] then swap(a[i],a[i+1]); for j: = 1 to n div 2 do       for i: = n div 2 to n-1 do               if a[i]< a[i+1] then swap(a[i],a[i+1]); for i: = 1 to n do       write(a[i],' ') end.