program Project2; {$APPTYPE CONSOLE} uses SysUtils; var inp,outp: textfile; i,j,l,a,n,k,min,max: integer; ans: array[1..9000000]of integer; s:array[1..9000000]of integer; w: array[-100..1000000]of integer; {procedure sort; var nm: integer; begin for i:=1 to k do begin min:=ans[i]; for j:=i+1 to k do if ans[j]w[max] then max:=i; writeln(outp,max); closefile(inp); closefile(outp); end.