randomize;
n:=strtoint(edit1.text);
1:for i:=1 to 10 do
begin
dizi[i]:=randomrange(1,100);
toplam:=toplam+dizi[i];
end;
if toplam=n then
memo1.lines.add(inttostr(dizi[i])
else
goto 1;
arkadaşlar burda amac toplamları benim klavyeden gireceğim herhangi bir sayıya eşit 10 sayı bulmak ve sayılar bulununca donguden cıkma bu donguden cıkma işini nasıl halledecez yardımcı olursanız sevinirim teşekkurler
__________________