Если нужен принцип, то будет примерно так:
Код:
function Calc(Param: Integer): String;
begin
if // Проводим вычисления подставляя переменную Param в вашу формулу
then Result := 'Решается'
else Result := 'Не решается';
end;
Var
Arr: Array[1..100] of integer;
begin
//Перед циклом массив уже должен быть заполнен значениями
for i := 1 to 100
do ShowMessage(Calc(Arr[i]));
end.