Составьте программу,определяющую,является ли целое положительное число трехзначным.

var a: integer;begin  write('Введите число: ');  read(a);  if (a div 100 > 0) and (a div 100 < 10) then write('Число ', a, ' трехзначное')                                          else write('Число ', a, ' не трехзначное')end.