Написать средне арифметическое послед дроб чисел

Если я правильно понял, то вот:var i,n: Integer;sum,t: Real;beginwriteln('Введите кол-во чисел');readln(n);for i:=1 to n dobeginwriteln('Введите ',i,' число');readln(t);sum:=sum+t;end;writeln('Среднее арифметическое чисел: ',sum/n);end.