Листинг программы

program z16;

{ Из семи красных и восьми белых роз требуется составить

  букет из пяти роз. Перечислить все возможные варианты. }

uses crt,f_mouse;

var m,k,i1,i2,i3,i4,i5,p3,j,s1,s2    :longint;

    er                               :integer;

    p1                               :string;

    p:array[1..1000]of longint;

procedure symma(g:longint;var p2:longint);

begin

 p2:=0;str(g,p1);

 for i3:=1 to 5 do

  begin

   val(p1[i3],j,er);

   p2:=p2+j;

  end;

end;

 begin

  clrscr;

    for i1:=1 to 2 do

    for i2:=1 to 2 do

    for i3:=1 to 2 do

    for i4:=1 to 2 do

    for i5:=1 to 2 do

     begin

      m:=i5+i4*10+i3*100+i2*1000+i1*10000;

      inc(k);p[k]:=m;

     end;

    for i1:=1 to k-1 do

     for i2:=i1+1 to k do

      begin

       symma(p[i1],s1);

       symma(p[i2],s2);

      if s1=s2 then p[i2]:=0;

     end;

    for i2:=1 to k do

     if p[i2]<>0 then write(p[i2],'   ');

  readln;

 end.