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.