program lab6v25;
uses crt;
const (* Задание констант используемых в варианте *)
  a = FALSE;
  b = FALSE;
  c = 1;
  d = 2;
begin
  writeln('Данная программа выводит сообщение-результат ');
  writeln('того или иного условия, зависящих от констант данных');
  writeln('для данного варианта, а именно:');
  writeln('boolean a = ', a);
  writeln('boolean b = ', b);
  writeln('integer c = ', c);
  writeln('integer d = ', d);
  writeln();
  writeln(':');
  if ((a=b) AND (c>d)=TRUE OR NOT A) then
  begin
    if ((FALSE<>a) AND ((c-d)<3)) then
    WriteLn('a=false', ' & ', c, '-', d, '<3.')
    else WriteLn('a=true | c-d>=',c-d);
  end
  else WriteLn('(a=b & c>d) | a=false.');
en