Вывести на экран числа кратные 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