Изучи результате выполнения программного кода и определите соответствующий блок движения с проекта по сцене перейти в x170 u120 перед ipx0 u03 vx70 u120 повернуть на 15 градусов повернуть на 15 градусов​

1)var ar: array of integer; max,min,s,i,n,maxi,mini: integer; begin; randomize; max: =-1; min: =101; readln(n); setlength(ar,n+1); writeln('array: '); for i: =1 to n do   begin;   ar[i]: =random(100);   write(ar[i]: 4);   if max< ar[i] then     begin;     max: =ar[i];     maxi: =i;     end;   if min> ar[i] then     begin;     min: =ar[i];     mini: =i;     end;   s: =s+ar[i];   end; ar[maxi]: =s; ar[mini]: =s; writeln; writeln('final array: '); for i: =1 to n do write(ar[i]: 4); end. 2)var ar: array of integer; k,h,i,s: integer; f: real; begin; randomize; readln(h); setlength(ar,h+1); writeln('array: '); for i: =1 to h do   begin;   ar[i]: =random(100)-50;   write(ar[i]: 4);   if (ar[i]> 0) and (ar[i] mod 2=0) then     begin;     inc(k);     s: =s+ar[i];     end;   end; f: =s/k; writeln; writeln('result: ',f); end.