Write in Pascal. Given a number. Whether it is a two-digit even, multiple of three.

program zz1;
var a: integer; // introduce variables of integer type
begin
write (‘enter a number’); // enter a number from the keyboard
read (a);

if (a> 9) and (a <100) then writeln (‘the number is two-digit’) else writeln (‘the number is not two-digit’); // display the first answer
if (a mod 2 = 0) then writeln (‘the number is even’) else writeln (‘the number is not even’); // print the second answer
if (a mod 3 = 0) then writeln (‘a multiple of three’) else writeln (‘a multiple of three’); // print the third answer
end.