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

program E9; var a: integer; beginwriteln ('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 можно не писать.