составьте программу проверяющая является ли данное целое число четырехзначным числом.На экране должно быть сообщение число четырехзначное или число не четырехзначное. По паскалю.

begin

 var n := ReadInteger('n =');

 Print(n.InRange(1000, 9999) ? '4-х значное' : 'не 4-х значное')

end.