печать(((, задачка Опции

[maxs]

помогите пожалуйста с задачей....не знаю как вообще выводить на печать:"составить прогу котвыводила на печать элементы последовательности ...... по 6 элементов вкаждой строке"

[volvo]

for i := 1 to 100 do begin
  write(i:4);
  if i mod 6 = 0 then writeln;
end;

Принцип ясен?

[maxs]

ого сапсиба!!!!бесконечно благодарен