задача 12 урок 9:

Изучите код:

var s, t:integer;
    f, b:boolean;
begin
  f := true;
  b := false;
 
  if (f=true) then
    t:=1;
  else
    t:=2;
 
  if (b=false) then
    s:=3;
  else
    s:=4;
end.

-- блоки условий можно переписать более кратко, без использования сравнения = true или = false, с сохранением той же логики работы программы.

Подсказки:

оператор if итак неявно сравнивает значение логического выражения в скобках с true (и принимает решение, какую именно ветку then или else выполнить)
для второго if в коде выше потребуется исползование оператора Not.

//мой вариант решения, но скорее всего не самый лучший
var s, t:integer;
    f, b:boolean;
begin
  f := true;
  b := false;

  if (f=true) AND (b =  Not f) then
    begin
    t:=1;
    s:=3;
    end
  else
    t:=2;
    s:=4;
end.

Код после доработки

var s, t:integer;
    f, b:boolean;
begin
  f := true;
  b := false;

  if (f)  then
    begin
      t:=1;
      s:=3;
    end;
  if (Not b) then
    begin
      t:=2;
      s:=4;
    end;
end.