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

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

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

[andriano]

var
  i : array[0..2]of integer;
  b : array[0..2]of boolean;
  c : array[0..2]of comp;
  d : array[0..2]of char;
begin
  for i[0] := 0 to 2 do
    b[i[0]] := i[0] = 1;
  for i[1] := 0 to 2 do
    c[i[1]] := i[1];
  for i[2] := 0 to 2 do
    d[i[2]] := char(byte('0') + i[2]));
end.