Найти сумму чисел100+105+110++200 напечатать выражение и значение суммы

Что типа должно получиться:  S=3150;

program Summ;
uses Crt;
var S, i, a, n: integer;

begin
 ClrScr;    {Очистка экрана}
 S:=0;
 a:=5;
 n:=(200-100) div a;  {Количество слагаемых}
 for i:=0 to n do
     s:=S+(100+i*5);
 WriteLn (' S=',s);    {Вывод результата}
 ReadLn;
end.