Подсчитать сумму 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.