Паскаль. помогите пожалуйста. 40 баллов

var   n, cnt, sum, i, t: integer; begin   read(n);   cnt := 0;   sum := 0;   for i := 1 to n do   begin     read(t);     if t > 0 then     begin       inc(cnt);       sum := sum + t;     end;   end;   writeln(sum / cnt : 0 : 1);   write(cnt); end.