Program lab_4;
var n: integer;
c: array [ 1..100 ] of integer;
a: boolean;
procedure sum(y,k,x:integer);
const plus:array[boolean] of char=('+',' ');
var i: integer;
begin
if y=0 then begin a:=true;
if a then begin for i:=1 to x-1 do write (c[i], plus[i=x-1]);
writeln end;
end else begin for i:= 1 to k do
if y-i>=0 then begin c[x]:=i;
sum(y-i,i,x+1 );
end; end; end;
begin writeln('vvedite 4islo N');
readln(n);
sum(n,n, 1 );
readln
end.
заранее благодарен