Товарищи помогите пожалуйста!
Определить все представления нечетного числа n в виде суммы трех простых чисел.
ps Большая просьба выложить алгоритм, чтобы было понятнее. Спасибо.
program x;
uses crt;
var a:array[1..999] of integer;
b, i,j,k,n,c:integer;
begin
clrscr;
writeln('vvesti n');
readln(n);
for i=l to n do
begin
for j:=1 to i div 2 do
begin
if i mod j=0 then k:=k+1;
end;
if k=l then
begin
c:=c+l;
a[c]:=i;
end;
k:=0;
end;
b:=0;
for i:=1 to с do
begin
for j:=i+1 to c do
begin
for k:=j+1 to c do
begin.
if a[i]+a[j]+a[k]=n then begin writeln(a[i],’+’,a[i],'+',a[k]);
b:=b+1;
end;
end;
end;
end;
writeln(‘s=’,s:2);
readkey;
end.
b:=0;
for i:=1 to с do
begin
for j:=i+1 to c do
begin
for k:=j+1 to c do