Помогите пожалуйста!
1)С клавиатуры вводится произвольное число N , с помощью деления div или mod определите , является ли оно двухзначным.
2)С клавиатуры вводится четырехзначное число X , определите является ли данное число палиндромом.

1) program n_1;var n: integer;beginreadln (n);if n div 100 = 0 thenwriteln ('Число двузначное') else writeln ('Число  не является двузначным')end.