Что нужно дописать в коде на паскале для того чтобы программа выдавала сразу все возможные варианты(их 8) var a,b,c: boolean; begin for a: =false to true do begin for b: =false to true do begin for c: =false to true do begin writeln ('1 zn'#9#9#9,'2 zn'#9#9#9,'a'#9,'b',#9,'c'#9); writeln('(a and b) and c'#9#9,'a and (b and c)'#9#9,'a=',a,' ','b=',b,' ','c=',c); if ((a and b) and c = a and (b and c)) then readln; end; end; end; end.
var
A,B,C:boolean;
begin
for A:=false to true do begin
for B:=false to true do begin
for C:=false to true do begin
writeln ('1 zn'#9#9#9,'2 zn'#9#9#9,'A'#9,'B',#9,'C'#9);
writeln('(A and B) and C'#9#9,'A and (B and C)'#9#9,'A=',A,' ','B=',B,' ','C=',C);
if ((A AND B) AND C = A AND (B AND C)) then
end;
end;
end;
readln;
end.