Составьте программу в Pascal ABC которая определяет является ли число 10 двузначным.

program z1;
Var a:integer;
Begin
read(a);
if (a>9) and (a<100) then writeln(a, '-двузначное число')
else writeln(a, '-не является двузначным числом');
end.