Напишите программу в паскале: Вводится 15 чисел. Найти сумму чисел, введенных с пятого по десятое

var

s: real;

n: integer;

begin

writeln('Введите последнее число множества');

readln(n);

s:=(n*(n+1))/2;

writeln('Сумма чисел равна ',s);

end.

PascalABC.NET

begin

 ReadArrInteger(15)[4:9].Sum.Println;

end.

Объяснение: