Решето Эратосфена - Переписать программу с PascalABC на C++

[lesusha]

// "Решето Эратосфена"

var 
  i,j,max,c: integer;
  f: boolean;
  time: integer;
begin
  max:=500;
  time:=milliseconds;
  for i:=1 to max do
  begin
    f:=true;
    for j:=2 to trunc(sqrt(i)+1) do
      if i mod j = 0 then
      begin
        f:=false;
        break;
      end;
      if f then write (i, ', ');
      if f then c+=1;
  end;
  time:=milliseconds-time;
  writeln('Время вычисления: ', time/1000, ' секунд');
  writeln('Count: ', c);
end.

[BDA]

Что-то на решето не похоже. Что не получается при переписывании на плюсы?