Что нужно дописать в коде на паскале для того чтобы программа выдавала сразу все возможные варианты(их 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.

Без readln; по прежнему выдаёт 1 ответ и чтоб ещё выдавал нужно Enter нажимать но когда все 8 ответов выдаст сразу закрывается

Так что надо что то другое

поправил. проверяй.

Может так:varA,B,C:boolean;beginfor A:=false to true do beginfor B:=false to true do beginfor C:=false to true do beginwriteln ('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)) thenend;end;end;readln;end.