program p16;

Uses Crt;

var trojuh:array[1..11,1..11] of integer;
        pocet,i,j:byte;
begin
clrscr;
repeat
write('Kolik rad Pascalova trujuhelniku urcit ? ');
read(pocet);pocet:=pocet+1; {prvni rada, tj. pouze c.1, se nepocita }
until pocet<11;
clrscr;
for i:=1 to pocet do begin trojuh[1,i]:=1;trojuh[i,1]:=1;end;
{ Nejdrive vyplnime vsechny krajni pozice jednickou }
for i:=2 to pocet do for j:=2 to pocet do
  trojuh[i,j]:=trojuh[i-1,j]+trojuh[i,j-1]; { nyni doplnime ostatni }
for i:=1 to pocet do for j:=1 to pocet-i+1 do
  begin gotoxy(i*4,j);write(trojuh[i,j]);end;
repeat until keypressed;
end.