Вывести на экран все числа, кратные 13 и не превосходящие 300

Var
  i:integer;
begin
  i:=13;
  while i<=300 do
  begin Write(i:4); i:=i+13 end;
  Writeln
end.

Результат выполнения программы:
  13  26  39  52  65  78  91 104 117 130 143 156 169 182 195 208 221 234 247 260 273 286 299