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

Если я правильно понял, то вот:

var i, n: Integer;

sum, t: Real;

begin

writeln ('Введите кол-во чисел') ;

readln (n) ;

for i:=1 to n do

begin

writeln ('Введите ', i,' число') ;

readln (t) ;

sum:=sum+t;

end;

writeln ('Среднее арифметическое чисел: ', sum/n) ;

end.