Число вводится с клавиатуры, определить является ли оно трехзначным. ПАСКАЛЬ

var a:integer;
begin
write('a = ');
readln(a);
if (abs(a)>99)and(abs(a)<1000)
 then writeln(a,' - трехзначное число')
 else writeln(a,' - не трехзначное число')
end.

Пример:
a = -527
-527 - трехзначное число