Pascalov trojuholnik - sčitovanie (Zadanie 22)

program pascalov_tojuh; uses crt; var a:array [0..15,0..15] of integer; i,j,k:integer; BEGIN clrscr; a[1,1]:=1; gotoxy (41,1); writeln (a[1,1]); for i:=2 to 10 do BEGIN for j:=1 to i do BEGIN a[i,j]:=a[(i-1),j]+a[(i-1),j-1]; gotoxy (4*(10-i)+6*j,i); write (a[i,j],' '); <span data-reactid=".q.1:3:1:$comment592708150825139_593261500769804:0.0.$right.0.$left.0.0.0:$comment-body.0.$end:0:$40:0" style="color:rgb(20,24,35);font-family:Helvetica,Arial,'lucidagrande',tahoma,verdana,arial,sans-serif;font-size:12px;line-height:15.359999656677246px;">END; <span data-reactid=".q.1:3:1:$comment592708150825139_593261500769804:0.0.$right.0.$left.0.0.0:$comment-body.0.$end:0:$42:0" style="color:rgb(20,24,35);font-family:Helvetica,Arial,'lucidagrande',tahoma,verdana,arial,sans-serif;font-size:12px;line-height:15.359999656677246px;">writeln; <span data-reactid=".q.1:3:1:$comment592708150825139_593261500769804:0.0.$right.0.$left.0.0.0:$comment-body.0.$end:0:$44:0" style="color:rgb(20,24,35);font-family:Helvetica,Arial,'lucidagrande',tahoma,verdana,arial,sans-serif;font-size:12px;line-height:15.359999656677246px;">END; <span data-reactid=".q.1:3:1:$comment592708150825139_593261500769804:0.0.$right.0.$left.0.0.0:$comment-body.0.$end:0:$46:0" style="color:rgb(20,24,35);font-family:Helvetica,Arial,'lucidagrande',tahoma,verdana,arial,sans-serif;font-size:12px;line-height:15.359999656677246px;">readln; <span data-reactid=".q.1:3:1:$comment592708150825139_593261500769804:0.0.$right.0.$left.0.0.0:$comment-body.0.$end:0:$48:0" style="color:rgb(20,24,35);font-family:Helvetica,Arial,'lucidagrande',tahoma,verdana,arial,sans-serif;font-size:12px;line-height:15.359999656677246px;">END.