program IfstTC;
var ch : char;
    int : integer;
    boolx, booly : boolean;
begin
    boolx := true;
    booly := false;
    ch := 'a';
    int := 66;
    write(integer(ch));
    write(integer(int));
    write(integer(boolx), integer(booly));
    writeln;
    writeln(char(ch), char(int));
    writeln(boolean(ch), integer(int), integer(boolx), integer(booly));
end.