Phân tích 1 số bằng tổng 3 số nguyên tố

Viết chương trình nhập một số tự nhiên N (N>5). Phân tích số đó bằng tổng của 3 số nguyên tố.
Ví dụ: 6 = 2 + 2 + 2; 10 = 5 + 3 + 2
                                                                 Giải
Uses crt;
Var i,j,n,m,k,d,t:integer;
begin
    clrscr;
    write('Nhap n: '); Readln(n);
    for i:=1 to n do
        begin
           d:=0;t:=0;
           for m:= 1 to i do
               if i mod m = 0 then d:=d+1;
           If d = 2 Then
               begin
                   t:=t+i;
                   for j:=i to n do
                        begin
                           d:=0;
                           for m:=1 to j do
                                if j mod m = 0 then d:=d+1;
                           If d = 2 Then
                                begin
                                   t:=t+j;
                                   for k:=j to n do
                                        begin
                                          d:=0;
                                           for m:=1 to k do
                                               if k mod m =0 then d:= d+1;
                                           If d = 2 Then
                                                begin
                                                   t:=t+k;
                                                   if t=n then writeln(n,'=',i,'+',j,'+',k,'.');
                                                   t:=t-k;
                                                end;
                                        end;
                                   t:=t-j;
                                end;
                        end;
                   t:=t-i;
                end;
        end;
    Readln;
END.