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

Question

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

Answer 1

Если я правильно понял вопрос:

uses crt;Var a:integer;Beginread(a);
if (a>99) and (a<1000) then writeln ('трехзначное')<br>   else writeln ('не трехзначное');End.