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

program zz1;

var i:integer; / / задаем переменную целого типа

begin

for i:=100 to 999 do / / 1 способ

if (i mod 10 = 8) and (i mod 6 = 0) and (i mod 4 = 0) then write (' ', i); / / выводим первый ответ

writeln;

i:=100;

while i<=999 do / / 2 способ

begin

if (i mod 10 = 8) and (i mod 6 = 0) and (i mod 4 = 0) then write (' ', i); / / выводим второй ответ

i:=i + 1;

end;

writeln;

i:=100;

repeat / / 3 способ

if (i mod 10 = 8) and (i mod 6 = 0) and (i mod 4 = 0) then write (' ', i); / / выводим третий ответ

i:=i + 1;

until i>999;

end.