Паскаль.Треугольник Паскаля.Нужна подсказка.

[NEMO1991]

как сделать так чтобы этот треугольник выводился как треугольник?
т.е. при использовании модуля Crt в окне числа выводились не так
1
1 1
1 2 1 ... а вот так чтобы его вершина была в центре окна. выглядит примерно так
................................... ...........1....................... .................
................................... ..........1 1.................................. ....
................................... .........1 2 1.................................. ....
и так далее.

uses
  Crt;
const
  N = 30;
var
  I,J,Nn: Integer;
  A:array[1..N, 1..N] of longint;
begin
  writeln('Input n');
  readln(Nn);
  ClrScr;
  for I:=1 to Nn do
    begin
      A[I,1]:=1;
      A[I,i]:=1;
    end;
  for I:= 3 to Nn do
    begin
      For J:=2 to I-1 do A[I,J]:= A[I-1,J-1]+A[I-1,J];
    end;
  ClrScr;
  for I:= 1 to Nn do
    begin
      for J:=1 to I do Write(a[I,J],' ');
      WriteLn;
    end;
end.

[Greblin]

Для каждой строки рассчитываешь координаты первого элемента (не сложно, учитывая, что в каждой строчке треугольника число элементов на 1 больше чем в предыдущей) и устанавливаешь нужные координаты вывода с помощью процедуры GotoXY

[__STDC__]

предлагаю как-то так (красным изменения)

uses
  Crt;
const
  N = 30;
var
  I,J,Nn,k: Integer;
  A:array[1..N, 1..N] of longint;
begin
  writeln('Input n');
  readln(Nn);
  ClrScr;
  for I:=1 to Nn do
    begin
      A[I,1]:=1;
      A[I,i]:=1;
    end;
  for I:= 3 to Nn do
    begin
      For J:=2 to I-1 do A[I,J]:= A[I-1,J-1]+A[I-1,J];
    end;
  ClrScr;
  k:=Nn;
  for I:= 1 to Nn do
    begin
	write('':k);
      for J:=1 to I do Write(a[I,J],' ');
      WriteLn;
    dec(k);
    end;

end.

***
До появления трехзначных чисел получается вообще шикарно =) а потом можно еще помудрить..

[NEMO1991]

спасибо))а реально сделать что бы он начинался прям из центра а не с краю?

[__STDC__]

Сообщение от NEMO1991

спасибо))а реально сделать что бы он начинался прям из центра а не с краю?

в смысле? ну там можно написать допустим

	write('':k+20);

и все будет смещать на 20 символов вправо... можно с помощью getmaxx что ли (если не ошибаюсь, не помню точно) рассчитать точный центр =)

[NEMO1991]

Спасибо))помогло))