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

//прога на Pascal`e
var
a: array of int64;
n: longint;
i : byte;
begin
write (Введите кол-во чисел: );
readln (n);
setLength (a, n);
for i:=0 to n-1 do
begin
write (Введите , i+1, число: );
readln (a[i]);
end;

for i:=0 to n-1 do
begin
writeln (-----------------------);
writeln (Число , a[i], :);
if (a[i] mod 2) = 0 then writeln (Четное) else writeln  (Нечетное);
if (a[i] mod 3) = 0 then writeln (Кратно 3-ем) else writeln (Не кратно 3-ем);
if (a[i]lt;10) or (a[i]gt;99) then writeln (Не 2-значное) else writeln (2-значное);
end;
end.