Написать программа выводу на экран всех 3 значных чисел, кратных 6 и 4, и…

Program Help; Var i: Word; Begin (*1 способ*) For i: =100 to 999 do If (i mod 6=0) and (i mod 4=0) and (i mod 10=8) then Writeln (i); Writeln*2 способ*) i: =100; While i < 999 do Begin If (i mod 6=0) and (i mod 4=0) and (i mod 10=8) then Writeln (i); i: =i+1; End; Writeln*3 способ*) i: =100; Repeat If (i mod 6=0) and (i mod 4=0) and (i mod 10=8) then Writeln (i); i: =i+1; Until i=999; Readln; End.