RosettaCodeData/Task/Boolean-values/Component-Pascal/boolean-values.component

VAR
   b,c: BOOLEAN;
...
   b := TRUE;
   c := FALSE;
...