Вывести на экран все кратный 17 числа от 1 до 100, используя 3 варианта цикла и одну переменную i . ( в паскале)

Var i:integer;
begin
  writeln('Цикл for:');
  for i:=1 to 100 do if i mod 17 = 0 then write(i:3);
  writeln();
  writeln('Цикл while:');
  i:=1;
  while i<=100 do begin
    if i mod 17 = 0 then write(i:3);
    i:=i+1;
  end;
  i:=1;
  writeln();
  writeln('Цикл repeat:');
  repeat begin
     if i mod 17 = 0 then write(i:3);
     i:=i+1;
  end;
  until i>=100;
 end.