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