[joomler]

блин, не получается может поможет мой код подсказать как сделать:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
x:real;
y:real;
z:real;

begin
  x:=StrToFloat(Edit1.Text);
  y:=StrToFloat(Edit2.Text);
  z:=(x/100)*y;

  if TryStrToFloat(Edit1.Text) then  Label1.Caption:='Введите значения'
 else


if y<=50 then Label1.Caption:=FloatToStr(z)+ ' / 3*10'
          else Label1.Caption:=FloatToStr(z)+ ' / 3*10';
if y>=55 then Label1.Caption:=FloatToStr(z)+ ' / 3*8';
if y>=60 then Label1.Caption:=FloatToStr(z)+ ' / 4*6';
if y>=65 then Label1.Caption:=FloatToStr(z)+ ' / 4*6';
if y>=70 then Label1.Caption:=FloatToStr(z)+ ' / 5*5';
if y>=75 then Label1.Caption:=FloatToStr(z)+ ' / 5*5';
if y>=80 then Label1.Caption:=FloatToStr(z)+ ' / 4*5';
if y>=85 then Label1.Caption:=FloatToStr(z)+ ' / 4*4';
if y>=90 then Label1.Caption:=FloatToStr(z)+ ' / 3*3';
if y>=95 then Label1.Caption:=FloatToStr(z)+ ' / 3*2';
if y>=100 then Label1.Caption:=FloatToStr(z)+ ' / 2*2';