найти сумму чисел от 15 до 5.По Паскалю(Задание)!​

готово

program summa;

var

 i, s: integer;

begin

 for i := 15 downto 5 do

    s := s + i;

 WriteLn('Сумма чисел от 15 до 5 равна ', s);

end.