Program NENXAU;

Program NENXAU; Program NENXAU; CONST fi=''''nenxau in543217''''; fo=''''nenxau ou543217'''' ; Var so,st,s,st2 string; f1,f2 text; ch char; i,dem,k,j byte;l integer; Procedure OpenFile; begin assign(f1,fi);reset([.]

Program NENXAU; CONST fi='nenxau.in543217'; fo='nenxau.ou543217' ; Var so,st,s,st2:string; f1,f2:text; ch:char; i,dem,k,j:byte;l:integer; Procedure OpenFile; begin assign(f1,fi);reset(f1); assign(f2,fo);rewrite(f2); end; Procedure CloseFile; begin close(f1);close(f2); end; Procedure ReadFile; begin read(f1,st); end; Procedure nenxau; begin st2:=''; l:=length(st); i:=1; dem:=1; while i1 then st2:=st2+so+st[i] else st2:=st2+st[i]; dem:=1; inc(i); end; writeln(f2,st2); end; BEGIN openFile; readFile; nenxau; closeFile; END Program NTDX; uses math; Const fi= 'NTDX.IN8'; fo= 'NTDX.OU8'; Type int= longint; Var A,B,REs: int; St: String; procedure mf; begin assign(input,fi);reset(input); Assign(output,fo);rewrite(output); end; procedure df; begin close(input);close(output); end; Procedure nhap; begin readln(A,B); end; Function nguyento(X:int):boolean; var i:int; begin For i:=2 to Trunc(SqrT(X)) if x mod i=0 then exit(False); Exit(True); end; Function thoaman(X:int):boolean; begin Exit((X>=A)and(X