ВЫВЕСТИ НА ЭКРАН ВСЕ КРАТНЫЙ 17 ЧИСЛА ОТ 1 ДО 100,

program zz1;
var i:integer; //заводим переменную цикла
begin
writeln(1-ый вариант);
for i:=1 to 100 do //перебираем все числа от 1 до 100
if i mod 17 = 0 then write(i, ); //проверяем, если число делится на 17, то выводим его на экран в строку через пробел
writeln;
writeln(2-ой вариант);
i:=1;
while ilt;=100 do //организуем цикл пока параметр не достигнет значения 100
begin
if i mod 17 = 0 then write(i, );
i:=1+i;
end;
writeln;
writeln(третий вариант);
i:=1;
repeat
if i mod 17 = 0 then write(i, );
i:=1+i;
until igt;100; //указываем условие окончания цикла
end.