СРОЧНО! Решить задачу в Паскале (тема «массивы") Задать случайным образом 13…

Vara: array[1… 2000001] of integer; i,y,x,j,c: integer; beginx: =200001; a[x]: =700; for i: =1 to 13 do beginy: =random (2000001); a[y]: =random (41)+10; if a[x]>a[y] then x: =y; if i=10 thenfor j: =i to 2000000-i-1 doa[j]: =a[j+1]; end; for c: =1 to 1999999 dowrite (a[c],'); end.