Question

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

Answer 1

Var a:integer;
b:boolean;
begin
readln(a);
if a mod 2 = 0 then b:=true;
writeln(b);
end.