procedure THomogeneas.Button1Click(Sender: TObject);
var
f1 :string;
begin
p:=1;
Y1:=strtofloat(edit1.Text);
Y2:=strtofloat(edit2.Text);
Y3:=strtofloat(edit3.Text);
Y4:=strtofloat(edit4.Text);
Y5:=strtofloat(edit5.Text);
Y6:=strtofloat(edit6.Text);
Y7:=strtofloat(edit7.Text);
While not(r6 =0) do
Begin
p:=p+1;
r0:=Y1;
r1:=(p*r0)+y2;
r2:=(p*r1)+y3;
r3:=(p*r2)+y4;
r4:=(p*r3)+y5;
r5:=(p*r4)+y6;
r6:=(p*r5)+y7;
if (p=11) then
Begin
p:= p-22;
End;
End; //hile
edit8.Text:= floattostr(result);
res.Caption:=floattostr(p);
end; //botton