Написать программу, которая проверяет, является ли введённое пользователем целое число четным и кратно ли оно 3.
Если число четное, оно кратно 2. Если четное число кратно 3, то оно одновременно кратно 2 и 3, т.е. кратно 2х3=6
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
Writeln(ReadInteger('n=') mod 6 =0)
end.