{programmer:mogtaba amirzade url http:\\www.ifjam.com } program p19(input,output); {28} var x:array[1..10] of real; t:real; i,j:integer; begin {begin program} readln(x[1]); {input farst nammber } for i:=2 to 10 do begin {begin for} readln(x[i]); for j:=1 to i do if x[i]