Напишите на языке Паскаля. Дано число. Является ли оно двухзначным чётным, кратное трём

program zz1;

var a:integer; / / вводим переменные целого типа

begin

write (' введите число '); / / вводим с клавиатуры число

read (a);

if (a > 9) and (a < 100) then writeln (' число является двузначным ') else writeln (' число не является двузначным '); / / выводим первый ответ

if (a mod 2 = 0) then writeln (' число является четным ') else writeln (' число не является четным '); / / выводим второй ответ

if (a mod 3 = 0) then writeln (' число кратное трем ') else writeln (' число не кратное трем '); / / выводим третий ответ

end.