program Project1;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils;

var
  a, b, c: Boolean;
  strCheck: string;

begin
  Randomize;
  a := Boolean(Random(2));
  c := a;
  b := c;

  repeat
    Randomize;

    if a and b and c then
      strCheck := 'истины'
    else
      strCheck := 'не истины';

    Writeln(format('Все условия A=%s, B=%s, C=%s %s', [BoolToStr(a, true), BoolToStr(b, true), BoolToStr(c, true), strCheck]));

    a := Boolean(Random(2));
    b := Boolean(Random(2));
    c := Boolean(Random(2));

   Writeln(format('Все условия A=%s, B=%s, C=%s', [BoolToStr(a, true), BoolToStr(b, true), BoolToStr(c, true)]));

    if a and not b and c then
      strCheck := 'правы все, кроме b'
    else if b then
      strCheck := 'прав только b'
    else
      strCheck := 'Никто не прав';

    Writeln(strCheck);

    Readln;
  until false;

end.