[eXplorer]

Код:

begin
edit1.Text:='447';
randomize;
edit2.Text:=inttostr(random(strtoint(edit1.Text)));
edit3.Text:=inttostr(random(strtoint(edit1.Text)-strtoint(edit2.Text)));
edit4.Text:=inttostr(random(strtoint(edit1.Text)-strtoint(edit2.Text)+strtoint(edit3.Text)));
edit5.Text:=inttostr(random(strtoint(edit1.Text)-strtoint(edit2.Text)+strtoint(edit3.Text)-strtoint(edit4.Text)));
end;