if else субвыбор

[oleg___]

Я начинающий. Ребят помогите плиз разобраться с опреатором if

Необходимо вычислить значение b

Если x = clc то
если (а > 0) и (а<100) то
b := 30
если (а >= 100) и (а<500) то
b := 20

А Если x = ir то
если (а > 0) и (а<250) то
b := 21
если (а >= 250) и (а<500) то
b := 15

На форуме и в книге, к сожалению, не нашел решения

[Вавел из ГМТУ]

If x = clc Then
   Begin
      If (a > 0) And (a < 100) Then b := 30;
      If (a >= 100) And (a < 500) Then b := 20;
   End;

Дальше пробуй сам...

[oleg___]

Собственно я так и сделал

if app = clc then
   begin
   if (a_tiraj < 250) and (a_tiraj > 0)then
   a_tsena := 30;
   if (a_tiraj < 500) and (a_tiraj >= 250)then
   a_tsena := 26;
   if (a_tiraj > 500) then
   a_tsena := 20;
   end;

   if app = hp then
      begin
   if (a_tiraj < 100) and (a_tiraj > 0)then
   a_tsena := 3;
   if (a_tiraj < 1000) and (a_tiraj >= 100)then
   a_tsena := 2;
   if (a_tiraj > 1000) then
   a_tsena := 1;
   end;

if app = ir then
   begin
   if (a_tiraj < 100) and (a_tiraj > 0)then
   a_tsena := 4;
   if (a_tiraj > 100) then
   a_tsena := 3;
    end;

но чегойто не работает, не считает правильно.

[Вавел из ГМТУ]

Покажите раздел Var... да и вобще весь исходник.

А что значит "не правильно считает"?

[oleg___]

Невнимательность, невнимательность и еще раз невнимательность - вот враг человека.
Дико извиняюсь... на форуме написал правильно, а у себя символ (<) не тот поставил (чего не скопировал и не всавил ??? да просто руку набить хотел).

Зато теперь ТОЧНО знаю, что писать именно так как написанно, а не иначе.