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.
const n=10;
var a,s,i: integer;
m:array[1..n] of integer;
begin
read(a);
for i:=1 to n do
if m[i]>a then s:=s+m[i];
end.