После описания переменных var ... должна быть строка begin в конце программы должна быть строка end.
0 votes Thanks 0
HomoNovus
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.
Answers & Comments
Verified answer
После описания переменных var ... должна быть строка begin в конце программы должна быть строка end.