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

Вместо отчета оставила в программе под слэшами комментарии

спасибо

Пожалуйста)

а ты программу проверяла

Да

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