Ребят, помогите исправить программу, пожалуйста

Question

Ребят, помогите исправить программу, пожалуйста

---

Answer 1

После описания переменных  var ...  должна быть строка  begin    в конце программы должна быть строка  end.

Comments

Program pas;begin var n, i, tmp, Average, More: Integer; Write('Days'); readln(n); Average:=0; More:=0; for i:=1 to n do begin Readln(tmp); Average:=Average + tmp; if tmp > 0 then More:= More + 1; end; Writeln; Writeln(Average/n); if more > 3 then Writeln('YES') else Writeln('NO');end.