Задача 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) then
     t:=1
  else
      t:=2;

  if (not b) then
     s:=3
  else
      s:=4;

// ниже блок для проверки
writeln(f, ' ', b, ' ', t, ' ', s);
readln();
end.

КОНСОЛЬ

TRUE FALSE 1 3