Подскажите в чем очипятка, новичок не могу разобратся в растановке.... Опции

[A^xumuk]

Хотел набрать прогу для вычесления небольшого алгоритма, но возникла проблема с использованием "if" и "else" как минимум...

[volvo]

В таком случае - ты потерял begin-ы и end-ы:

  if (xb = 1) then begin
    if (xa = 1) then begin
      if (xd = 1) then BEGIN Cv := 16.2; q := 0.4; x := 0.2; y := 0.5; m := 0.2; END;
      if (xd = 2) then BEGIN Cv := 10.8; q := 0.6; x := 0.2; y := 0.3; m := 0.25 END
    end
    else if (xa = 2) then begin
      if (xd = 1) then BEGIN Cv := 16.3; q := 0.3; x := 0.2; y := 0.5; m := 0.3; END;
      if (xd = 3) then BEGIN Cv := 18.0; q := 0.6; x := 0.2; y := 0.3; m := 0.25 END
    end
    else if (xa = 3) then begin
      if (xd = 1) then BEGIN Cv := 10.5; q := 0.3; x := 0.2; y := 0.65; m := 0.4; END;
      if (xd = 3) then BEGIN Cv := 100.6; q := 0.3; x := 0;  y := 0.65; m := 0.4 END
    end
  end