Урок 9 Задача 12

Урок 9 Задача 12

Изучите код:

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, с сохранением той же логики работы программы.

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

  if f then
    t:=1
  else
    t:=2;

  if Not f then
    s:=3
  else
    s:=4;
  writeln(t);
  writeln(s);
  readln();

end.