Напишите пожалуйста программу...

Напишите пожалуйста программу с помщью Паскаля:Дана последовательность 5 9 13 17 21 25 29 33 37 41 45 49. Составьте программу для подсчета числаслагаемых сумма которых равна 324

 

var sum, i: integer;
 
 
begin
  sum := 5; i := 1;
  while (sum < 324) do
  begin
    sum := sum + 4;
    i := i + 1;
  end;
  writeln ('Слогаемых: ');
  write (i);
end.