program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils, variants;
var
b: boolean;
v: variant;
i: integer;
begin
b := true;
v := b; i := v; writeln(v, ', ', b, ', ', i);
b := v; i := v; writeln(v, ', ', b, ', ', i);
v := 1; v := i; writeln(v, ', ', b, ', ', i);
b := v; i := v; writeln(v, ', ', b, ', ', i);
v := 0; i := v; writeln(v, ', ', b, ', ', i);
b := v; i := v; writeln(v, ', ', b, ', ', i);
readln;
end.