Найти сумму чисел от 3,5,7,9,11 ... 101 через паскаль. Помогите,пожалуйста)

спасибо огромное) я очень благодарна

Пожалуйста)

var  i, s: integer;begin  s := 0;  i := 3;  while i <= 101 do  begin    s := s + i;    i := i + 2  end;  Writeln('Сумма равна ', s)end.Тестовое решение:Сумма равна 2600