[AND_REY]

Так наверно:

Код:

Function Procent(N, Ni: Real): Real;
begin
 Result:= (Ni/N)*100;
end;