Ребят, помогите, пожалуйста, очень нужна помощь

Question

Ребят, помогите, пожалуйста, очень нужна помощь

---

Answer 1

Var n, i, tmp, Average, More:integer;

//-----------------------------------------------------------------
begin
  write('Days: '); readln(n);

  Average:=0;
  More:=0;

  for i:=1 to n do begin
    Readln(tmp);
    Average:=Average+tmp;
    if tmp>10 then more:=more+1;
  end;

  Writeln;
  Writeln(Average/n);
  if more>3 then Writeln('YES') else Writeln('NO');
end.

Comments

2 строчку не читает