Является ли число положительным?

var
  A, B, C: integer;

begin
  writeln('Введите целые числа:');
  write('A = ');
  readln(A);
  write('B = ');
  readln(B);
  write('C = ');
  readln(C);
  writeln;
  { Поскольку условия A>0, B>0 и C>0 должны выполнятся 
  одновременно, то объединяем их оператором and: }
  writeln('Каждое из чисел положительное? ', 
    (A > 0)and(B > 0)and(C > 0)); { <-- Выводим значение }
  readln
end.

var
  A, B, C: integer;

begin
  writeln('Введите целые числа A, B, C:');
  readln(A, B, C); { <-- Вводим три целые числа A, B, C }
  writeln;
  { Поскольку среди условий A>0, B>0 и C>0 должно выполнятся 
  хотя бы одно, то объединяем их оператором or (логическое 
  "или"). Если получим результат True, то среди введенных чисел
  есть положительное, в противном случае мы получим False: }
  writeln('Хотя бы одно из чисел A, B, C положительное? ',
    (A > 0)or(B > 0)or(C > 0));
  readln
end.

var
  A, B, C: integer; { <-- Целые числа для ввода }
  f, g, h: boolean; { <-- Логические переменные }

begin
  writeln('Введите целые числа A, B, C:');
  readln(A, B, C); { <-- Вводим три целые числа A, B, C }
  { Составляем три выражения, каждое из которых ознает,
  что только одно из чисел положительное: }
  f := (A > 0)and(B <= 0)and(C <= 0); { <== «только A > 0» }
  g := (B > 0)and(A <= 0)and(C <= 0); { <== «только B > 0» }
  h := (C > 0)and(A <= 0)and(B <= 0); { <== «только C > 0» }
  writeln;
  { Поскольку среди условий f, g и h может выполнятся только
  одно, то объединяем их оператором xor ("исключающее или"): }
  writeln('Ровно одно из чисел положительное? ', f xor g xor h);
  readln
end.

var
  A, B, C: integer;
  f, g, h: boolean;

begin
  writeln('Введите целые числа A, B, C:');
  readln(A, B, C);
  f := (A > 0)and(B > 0)and(C <= 0); { <== A>0, B>0 и C<0 }
  g := (B > 0)and(C > 0)and(A <= 0); { <== B>0, C>0 и A<0 }
  h := (C > 0)and(A > 0)and(B <= 0); { <== C>0, A>0 и B<0 }
  writeln;
  { Поскольку среди условий f, g и h может выполнятся только 
  одно, то объединяем их оператором xor ("исключающее или"): }
  writeln('Ровно два из чисел положительные? ', f xor g xor h);
  readln
end.