PascalABC написать программу

Написать программу, которая проверяет, является ли введённое пользователем целое число четным и кратно ли оно 3.

Если число четное, оно кратно 2. Если четное число кратно 3, то оно одновременно кратно 2 и 3, т.е. кратно 2х3=6

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  Writeln(ReadInteger('n=') mod 6 =0) 
end.