Определить является ли число N чётным двузначным числом в паскале

program E9; var a: integer; begin writeln('vvedite chislo'); readln(a); if a>9 then writeln('dvuznachnoe') else writeln('odnoznachnoe'); if a mod 2=0 then writeln('chetnoe') else writeln('nechetnoe'); readln; end.   Если вы пишете программы в FreePaskal, то readln можно не писать.