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

Program znanija;var  a: integer;begin  write(Введите трехзначное число: );  readln(a);  if (agt;99) and (alt;1001) then   writeln(Чило:  ,a, трехзначное) else   writeln(Чило:  ,a, не трехзначное);end.