Помогите с boolean, comp, char Опции

[Вячеслав Л.]

Задание:
Написать программу, использующую при своей работе не меньше 3х переменных boolean.
То же самое для comp и char. То есть три разных программы. Натолкните хотя бы на мысль - не представляю, что это должны быть за программы - сами проги уже попытаюсь написать сам.

[andriano]

if (BoolVar1 = TRUE) and ((not BoolVar1) = FALSE) then
    BoolVar2 := TRUE
else
    BoolVar2 := FALSE;