Для решения данной задачи нам необходимо проверить выполнение нескольких условий и вывести соответствующее сообщение. а) Числа А и В четные. Чтобы это условие выполнилось, необходимо проверить, что оба числа А и В делятся на 2 без остатка. Для этого используем оператор деления с остатком (%). Если результат деления чисел на 2 равен 0, то числа четные, иначе - нет. Пример кода на Pascal:

var

  A, B: integer;

begin

  write('Введите число А: ');

  readln(A);

  write('Введите число В: ');

  readln(B);

  

  if (A mod 2 = 0) and (B mod 2 = 0) then

    writeln('Истинно')

  else

    writeln('Ложно');

end.

б) Число А кратно 4. Для того чтобы число А было кратно 4, необходимо проверить, что остаток от деления числа А на 4 равен 0. Если это условие выполняется, то число А кратно 4, иначе - нет. Пример кода на Pascal:

var

  A: integer;

begin

  write('Введите число А: ');

  readln(A);

  

  if A mod 4 = 0 then

    writeln('Истинно')

  else

    writeln('Ложно');

end.

в) 2*А=В. Для проверки данного условия нужно умножить число А на 2 и сравнить результат с числом В. Если они равны, то условие выполняется и ответ "Истинно", иначе - "Ложно". Пример кода на Pascal:

var

  A, B: integer;

begin

  write('Введите число А: ');

  readln(A);

  write('Введите число В: ');

  readln(B);

  

  if 2*A = B then

    writeln('Истинно')

  else

    writeln('Ложно');

end.

г) Сумма чисел А и В > 0. Чтобы проверить данное условие, нужно сложить числа А и В и сравнить результат с 0. Если сумма больше 0, то условие выполняется и ответ "Истинно", иначе - "Ложно". Пример кода на Pascal:

var

  A, B: integer;

begin

  write('Введите число А: ');

  readln(A);

  write('Введите число В: ');

  readln(B);

  

  if A + B > 0 then

    writeln('Истинно')

  else

    writeln('Ложно');

end.

Таким образом, мы рассмотрели 4 условия и написали соответствующий код на языке Pascal для каждого из них. Каждый из этих примеров выводит на экран ответ "Истинно", если условие выполнено, и "Ложно" в противном случае.