Найти сумму чисел100+105+110+115...+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.