вывод данных по столбцам, столбики из 50 строчек... Опции

[Client]

я хочу вывести числа от 1 хотя бы до 300 в столбики по 50 строк но получается глюк.
я мыслил так:сначала вывожу от 1 до 50 с помощью гоуту х у (1,и) где и-счетчик. потом с дивами и модами...
вот текст но на масте 51 прога потом выводит 101, или вообще че другое если изменить условие, но не то как я хочу.

Добавлено через 6 мин.

uses crt;
var
   i,n,k,j:integer;
begin
     clrscr;
     k:=1;
     for i:=1 to 200 do
     begin
          j:=i div 51;
          n:=i div 50;
          if (n>=1) and (i-n*50=1) then
          begin
               gotoxy(16*n,1);
               write(i:4);
         
          end
          else
              if i<=50 then
             begin
                  gotoxy(1,i);
                  write(i:4)
             end
          else
              if (i>50) and (i-n*50<>1) then
             begin
                  gotoxy(16*(i div 51),(i mod 51)+k);
                  write(i:4);
                  
             end;
          delay(1000);
     end;
     readkey
end.

.
если не правильно то извините

Сообщение отредактировано: Client - 22.10.2007 23:34

[volvo]

uses crt;
const
  n = 20; { <--- сколько чисел в столбце }
  every = 5; { <--- "ширина" каждого столбца  }

var
  i: integer;

begin
  clrscr;
  for i := 1 to 200 do begin
    gotoxy((pred(i) div n) * every + 1, (pred(i) mod n) + 1);
    write(i:every)
  end;
end.

?

[Client]

Спасибо!
это ты так с ходу решил?
Молоток