написать программа выводу на экран всех 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.