Вывести на экран числа кратные 6 из интервала 50-100. В Паскале АВС

Var   i:integer; begin   i:=54;   repeat     Write(i:3);     i:=i+6   until i>100;   Writeln end. Результат  54 60 66 72 78 84 90 96