Имеется 10 результатов по прыжкам в длину c1,c2,c3,...c10. Вывести на печать номера спортсменов, чей результат превышает n метров.


program sport;
Var c:array [1..10] of integer;
i:integer;
n:real;
Begin
for i:=1 to 10 do readln (c[i]);
for i;=1 to 10 do
if c[i]>n then writeln ('i=',i);
end.

когда начинаю вводить значения,то вводиться вместо 10 целых 20. Программа выполняется,но я не понимаю,почему нужно вводть 20,а не 10 значений. Что не так?

program sport;const    m = 10;var    c: array [1..m] of integer;    i: integer;    n: real;begin    write('n=');    readln(n);        for i := 1 to m do     begin        write('c[', i, ']=');        readln(c[i]);    end;        for i := 1 to m do        if c[i] > n then             write(i, ' ');end.Тест:n=5c[1]=1c[2]=4c[3]=7c[4]=2c[5]=5c[6]=8c[7]=3c[8]=6c[9]=9c[10]=13 6 8 9