Самбер, я задачи не понял

Самбер, Чика гуглер

ну если чё то вот

program test;
var min,i: integer;
var a:array[0..1000] of integer;
//заполняем массив от 0 до 1000
i:=0;
while i < 1001 to
begin
a[i]:=i;
end;
min:=число что надо найти я так думаю это 100;
i:=0;
while i < 1001 to
begin
if a[i] = min then
begin
writeln(a[i]);
end;
else
begin
writeln('Числа нут пля');
end;
end;
end.

Я сперва написал код но ведь если массив от 10 до 1000 то минимальное трёхзначное число 100