Program BT_3; Var n,d,d1,dem,i,j1,j : longint; BEgin repeat Write ('Nhap N : ');Readln(n); until (n > 2) and (n mod 2 = 0); d := 0; d1 := 0; For i := 1 TO n div 2 do BEgin FOr j := 1 to i do If i mod j = 0 then d := d+ 1; If d= 2 then For j1 := 1 to n-i do If (n-i) mod j1 = 0 then d1 := d1 + 1; If d1 = 2 then break; d := 0; d1 := 0; end; Write (i,' ',n-i); end.
