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

function if_3(input: integer): boolean;
begin
Result:=(input>99) AND (input<1000)
end;

функция возвращает True, если число трехзначное положительное, и False во всех остальных случаях