Program Geron;var
a, b, c, p, s: real;begin
readln(a, b, c); p := (a + b +c) / 2; s:= sqrt(p*(p - a)*(p - b)*(p -c )); writeln(s);
end.
Конъюкцию (and). Поскольку одно из условий оператора if (а>1) всегда равно 1. а другое (а<b) всегда нулю, то результат <span>(a > 1) and (a < b) будет 0 и переменная а получит приращение в 7
</span>a := 10; b := 5;
<span>if (a > 1) and (a < b) then </span>
a := a - 7
else
<span>a := a + 7;</span>
Заключи то что после if в скобки и будет тебе счастье. И ' ; ' убери после g mod 2 =0.
и в действии перед if в конце поставь ' ; '.