[angvelem]

Чего его клепать?

Код:

  if (I >= 7501) and (I <= 7600) then
    Rez := 375
  else if (I >= 7601) and (I <= 7700) then
    Rez := 380
  else if (I >= 7701) and (I <= 7800) then
    Rez := 385
  else if (I >= 7801) and (I <= 7900) then
    Rez := 390
  else if (I >= 7901) and (I <= 8000) then
    Rez := 395;