Изучите код:
var s:integer;
f:boolean;
begin
f := true;
b := false;
if (f=true) then
s:=1;
else
s:=2;
if (b=false) then
s:=3;
else
s:=4;
end.
-- блоки условий можно переписать более кратко, без использования сравнения = true или = false, с сохранением той же логики работы программы.
Подсказки: