Олимпиадная задача: про билеты. Опции

[AND]

Думаю, всем известная задача про счастливые 6-значные билеты. Занимаюсь паскалем пару дней) так что делел на основе "имеющихся знаний". Вроде как сделал, да только 1 пункт не знаю как сделать - размещать ответы в 2 столбика + можно ли что бы они были ВСЕ? Желатьно сделать простыми средствами.

PROGRAM p;
VAR
pr1, pr2, i, n1, n2, n : longint;
BEGIN
n:=0;
Write('Ot... ');
Readln(pr1);
Write('Do... ');
Readln(pr2);
while (pr1=pr2) or (pr1>pr2) or (pr1<0)
do Write('Error!!!');

for i:=pr1 to pr2 do
begin
n1:=(i div 1000);
n2:=(i mod 1000);
if
(n1 div 10)-(n1 div 100)*9+(n1 mod 10)=
(n2 div 10)-(n2 div 100)*9+(n2 mod 10)
then
begin
Writeln(i);
n:=n+1
end;
end;
writeln(n);
read(n)
end.

Сообщение отредактировано: AND - 1.10.2008 17:18

[volvo]

{
  Печатаем число в поле из 10 символов (4 пробела и 6 - само число, оно же шестизначное)
}
Write(i:10);

{
  Переводим строку, только если N - четное (остаток от деления на 2 = 0),
  а поскольку четный номер - у каждого второго числа, то после вывода двух чисел
  строка и переведется
}
if n mod 2 = 0 then writeln; 

Сообщение отредактировано: volvo - 1.10.2008 21:41

[AND]

{
  Печатаем число в поле из 10 символов (4 пробела и 6 - само число, оно же шестизначное)
}
Write(i:10);

{
  Переводим строку, только если i - четное (остаток от деления на 2 = 0),
  а поскольку четным является каждое второе число, то после вывода двух чисел
  строка и переведется
}
if i mod 2 = 0 then writeln; 

Нет. Не получается. Там могут идти ПОДРЯТ и четные или нечетные. Иногда (часто) получается по 3 или 4 числа в строке.