Programation pascal sur les tables de verite

bain mon probleme c j ai une expression
A and B or not C
ET ON ME DEMANDE DE FAIRE LE PROGRAMME QUI AFFICHE LA VALEUR DE CETTE EXPRESSION AVEC DES AFFECTATION SIMPLE JE L AI TROUVER ET J AI TROUVE 8 CAS ET JE L AI FAIS AUSSI AVEC LA BOUCLE FOR SA MA DONNER LE PROGRAMME SUIVANT:
program table;
var A,B,C:boolean ;
begin
writeln(' A B C A and B or not C ');
for A:=false to true do
for B:=false to true do
for C:=false to true do
writeln (A,B,C,A and B or not C );
readln;
end.
maintenant mon vrai probleme c est de transformer ce programme en utilisant des boucles while.

merci beaucoup