Question

Pascal
Помогите девочке, сделайте, чтоб код работал
var a:array[1..31] of integer;
i,n,s:integer;
sr:real;
begin
readln(n);
for i:=1 to n do
read(a[i]);
s=0;
for i:=1 to n do
s:=s+a[i];
sr:=s/n;
write(sr);
end.
Пишет такую ошибку Error: Illegal expression
main.pas(8,1) Warning: Variable "s" does not seem to be initialized
main.pas(13,4) Fatal: There were 1 errors compiling module, stopping
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode

Answer 1

var

 a: array[1..31] of integer;

 i, n, s: integer;

 sr: real;

begin

 readln(n);

 for i := 1 to n do

   read(a[i]);

 s := 0;

 for i := 1 to n do

   s := s + a[i];

 sr := s / n;

 write(sr);

end.