ВЫВЕСТИ НА ЭКРАН ВСЕ КРАТНЫЙ 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.