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

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