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