Паскаль!Программа которая просит пользователя ввести количество человек,потом каждый пользователь вводит свой вес и программа выводит общий вес всех людей

Var

summ, n, i, k: integer;

begin

summ := 0;

writeln('Сколько в классе учеников?');

readln(n);

for i:=0 to n-1 do

begin

writeln('Введите вес ученика номер ',i+1);

readln(k);

summ:=summ+k;

end;

writeln('Вес всего класса = ',summ);

end.