Небольшое дополнение к лабе по теме "целые числа" Делфи.

[kazzz]

procedure TForm1.Button3Click(Sender: TObject);
var
i1,i2,i3,i4,i5,x:integer;
begin
x:=StrToInt(Edit1.Text);
  if x>=5 then
    begin
     for i1:=0 to x do
      begin
      for i2:=0 to x do
        begin
        for i3:=0 to x do
          begin
          for i4:=0 to x do
            begin for i5:=0 to x do
              begin
              if (i1>i2) and (i2>i3) and (i3>i4) and (i4>i5) then
                begin
                if i1+i2+i3+i4+i5=x then Memo2.Lines.Add(IntToStr(i1)+' + '
                +IntToStr(i2)+' + '+IntToStr(i3)+' + '+IntToStr(i4)+' + '
                +IntToStr(i5)+' = '+ IntToStr(x));
                end;
              end;
            end;
          end;
        end;
      end;
    end
  else ShowMessage('       Введите N>=5');
end;
end.

Так как по условию n>=5, но фактически решение имеется только при n>=10 необходимо, чтоб в таком случае писал в Memo 'Для данного числа решений нет...'. Причем не условием что 5<=n и n<9 тогда то-то, а только когда выясняется, что решений нет... Условие ниже.

[kazzz]

Уже сделал..

procedure TForm1.Button3Click(Sender: TObject);
var
  b:Boolean;
  i1,i2,i3,i4,i5,x:integer;
begin
  b:=true;
  x:=StrToInt(Edit1.Text);
  if x>=5 then
    begin
     for i1:=0 to x do
      begin
      for i2:=0 to x do
        begin
        for i3:=0 to x do
          begin
          for i4:=0 to x do
            begin for i5:=0 to x do
              begin
              if (i1>i2) and (i2>i3) and (i3>i4) and (i4>i5) then
                begin
                  if i1+i2+i3+i4+i5=x then
                  begin
                    Memo2.Lines.Add(IntToStr(i1)+' + '
                    +IntToStr(i2)+' + '+IntToStr(i3)+' + '+IntToStr(i4)+' + '
                    +IntToStr(i5)+' = '+ IntToStr(x));
                    b:=False;
                  end;
                end;
              end;
            end;
          end;
        end;
      end;
    end
  else ShowMessage('       Ââåäèòå N>=5');
  if b then Memo2.Lines.Add('Äëÿ äàííîãî ÷èñëà ðåøåíèé íåò');
end;