const n=10;var a,s,i: integer;m:array[1..n] of integer;beginread(a);for i:=1 to n doif m[i]>a then s:=s+m[i];end.