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

Var i: integer; beginfor i: =100 to 999 do if (i mod 6=0) and (i mod 4=0) and (i mod 10=8) then write (i, '); end. {While}Var i: integer; begin i: =100; while i <= 999 do beginif (if (i mod 6=0) and (i mod 4=0) and (i mod 10=8) then write (i, '); inc (i); end; end. {Repeat}Var i: integer; begini: =100; repeatbegin if (i mod 6=0) and (i mod 4=0) and (i mod 10=8) then write (i, '); inc (i); end; until i<1000; end.