Подсчитать сумму 10 произвольно введенных чисел. Подробно расписать чтоб было 5. Решается моя оценка. буду благодарен.

var s,i,a:integer; //объявляем необходимые переменные begin s:=0; //изначально сумма равна 0 write('Введите 10 чисел через enter '); //запрос 10-ти чисел for i:=1 to 10 do begin //с помощью цикла вводим числа readln(a); s:=s+a; // вычисляем сумму(смысл цикла уж не буду расписывать) end; write('Сумма 10-ти чисел  = ',s); //выводим на экран искомое значение end.