Составьте программу вычисления произведения S = 1*2+3*4+5*6+...+101*102 (в паскале)

Var i,a1,a2:integer;
sum:longint;
begin
a1:=1;
a2:=2;
sum:=0;
while (a1lt;102) or (a2lt;102) do
begin
sum:=sum+(a1*a2);
a1:=a2+1;
a2:=a1+1;
end;
writeln(sum);
end.