// фам 1 ввести число , выяснить 3 значное или нет

var b:integer;

begin

  write ('Введите целое число: ');  readln (b);

  if (b>99) and (b<1000)    then writeln ('число трехзначное')   

                                                else writeln ('число не трехзначное');

end.