var
  A, B, C: Integer;
begin
  A := 3;
  B := 5;
  C := 7;

  //parentheses are required: "and"
  //binds tighter than comparisons
  if (C >= A) and (C >= B) then
    WriteLn('nothing is larger than C');

  if not ((A >= B) or (A >= C)) then
    WriteLn('A is the smallest');
end.