program ggg;
uses crt;
var a:array[1..10] of integer;i,m,sum:integer;
BEGIN
clrscr;
randomize;
write('vvedite chislo m');
readln(m);
   for i:=1 to 10 do begin
a[i]:=random(10)+4;
   write(a[i]:5); end;
writeln;
sum:=0;
   for i:=1 to 10 do
   if a[i]>m then sum:=sum+i;
writeln(sum);
readln;
END.