Решаем задачи Абрамян на Паскале. Boolean3

Boolean3. Дано целое число $A$. Проверить истинность высказывания: «Число $A$ является четным».

Решение:

program Boolean3;
var
 A: Integer;
begin
  Write('Введите число A: ');
  Readln(A);
  Writeln((A mod 2)>0);
end.

program Boolean3;

var

A: Integer;

begin

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

Readln(A);

Writeln((A mod 2)>0);

end.

Другие задачи из раздела Boolean можно посмотреть здесь.