... k,i:integer; begin assign(f1,fo); rewrite(f1); dem1:=0; a[1]:=1; b[1]:=true; try(2); writeln(f1,dem1); close(f1); end; begin docf; fillchar(b,sizeof(b),false); dem:=0; xuly; end. ... mang=array[1..20] of byte; mang1=array[1..20] of boolean; var n:byte; a:mang; b:mang1; f1:text; dem,dem1:longint; s:string; i:integer; procedure docf; var f:text; n1:byte; begin assign(f,fi); reset(f); ... end; fillchar(chuaxet,sizeof(chuaxet),true); fillchar(hoanvi,sizeof(hoanvi),0); try(1); writeln(f,dem); close(f); end; begin docf; xuly; end. const fi='PCIRCLE.INP'; fo='PCIRCLE.OUT';...