Урок №9 Задание 14

Урок №9 Задание 14

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

program Pr9_14;

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;
end.