[dem1d]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
x:real;
y:real;
z:real;
ch:integer;
begin
  try
    x:=StrToFloat(Edit1.Text);
    y:=StrToFloat(Edit2.Text);
    z:=(x/100)*y;
  except
    ShowMessage('некорректные данные');
    ch:=5;
  end;
    If ch=5 then
      Begin
        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';
      end else Exit;
    end;
end.