готово
Объяснение:
program summa;
var
i, s: integer;
begin
for i := 15 downto 5 do
s := s + i;
WriteLn('Сумма чисел от 15 до 5 равна ', s);
end.
