@mukhtada
uses crt; var p : array[1..1000] of integer; i,j,n,x,y,z,a,b : integer; begin clrscr; y := 0; z := 0; readln(n); for i := 1 to n do begin readln(p[i])...