Написать программа выводу на экран всех 3 значных чисел,кратных 6 и 4, и заканчивающихся на цифру 8. Программу писать тремя способами с использованием циклов for, while, repeat

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.