Дан массив, содержащий 30 целых чисел. Элементы массива могут принимать целые

Дан массив, содержащий 30 целых чисел. Элементы массива могут принимать целые значения от 0 до 1000. Опишите на одном из языков программирования метод, позволяющий отыскать мало трехзначное число, записанное в этом массиве. Если такового числа нет то необходимо вывести сообщение об этом.



const
n=30;
var
a: array [1..n] of integer;
i, j, min: integer;
begin
for i:=1 to n do
readln(a[i]);
.......
end.



ПАСКАЛЬ