Найти сумму всех чётных чисел от 100 до 200 (информатика циклы)

uses Crt; 
var i, Sum: integer;
begin 
ClrScr; 
Sum:=0; 
for i:=100 to 200 do   
   if (i mod 2)=0  then Sum:= Sum+i; 
WriteLn (' Sum = ', Sum);
ReadLn;
end.

Это арифметическая прогрессия а1=100, d=2 a51=200 Найти S51=(a1+a51)*51/2=7650