Текст задачи: Найти сумму и количество положительных нечётных чисел, делящихся без остатка на 3 и меньших 100. Вывести эти числа на экран.

Плиз!!!!!!!!

i := 1; // ну или i := 3;
while(i<100) do begin
   if (i mod 3 = 0) then writeln(i);
   inc(i,2);
end;

i := 1; 
count := 0; sum := 0;
while(i<100) do begin
  if (i mod 3 = 0) then begin 
    writeln(i);
    inc(count); inc(sum, i); { <-- Количество и сумма считаются здесь }
  end;
  inc(i,2);
end;