program Pascaluv_trojuhelnik;

uses crt;

const maxpocetradku = 13;

var ir : array[1..maxpocetradku]of integer;
    n, i, j : integer;

begin
  clrscr;
  writeln('Tento program tiskne Pascaluv trojuhelnik.');
  for i := 1 to maxpocetradku do ir[i] := 0;
  repeat
    write('Zadej rad trojuhelniku (1 - ',maxpocetradku,') : ');
    readln(n);
    if (n < 1) or (n > maxpocetradku) then writeln('Vlozil jsi spatnou hodnotu.');
  until (n >= 1) and (n <= maxpocetradku);
  for i := 1 to n do
  begin
    ir[i] := 1;
    for j := i - 1 downto 2 do ir[j] := ir[j] + ir[j - 1];
    gotoxy(40 - 3*i,i + 3);
    for j := 1 to i do write(ir[j]:6);
    writeln;
  end;
  writeln;
  writeln('Stiskni ENTER ...');
  readln;
end.