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

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