Определить координаты числа в таблице - PascalABC.NET

Формулировка задачи:

Здравствуйте! Вот такая вот задача: Бесконечная прямоугольная таблица заполняется целыми числами, начиная с 1 по диагоналям с чередованием порядка заполнения (см. рисунок). По заданному числу N определить номер строки и столбца, в котором оно находится при данном заполнении. Номера строк и столбцов считать с 1. Не могу придумать алгоритм, если хотя бы его предложите, уже будет здорово. Заранее спасибо!)

Решение задачи: «Определить координаты числа в таблице»

textual
                            Листинг программы 
                        

                            program qq; 
var n,k,x,y,i: longint; 
begin 
readln(n); 
k:=1; 
while n>k do begin 
n:=n-k; 
k:=k+1; 
end; 
if (k mod 2) = 0 then begin 
x:=k; 
y:=1; 
for i:=2 to n do begin 
x:=x-1; 
y:=y+1; 
end; 
end 
else begin 
x:=1; 
y:=k; 
for i:=2 to n do begin 
x:=x+1; 
y:=y-1; 
end; 
end; 
 
writeln(y,' ',x); 
end.
                        