Определить, существует ли в пределах первой сотни число, сумма цифр которого больше суммы цифр факториала этого числа.

function summ(chisl:string):integer;
var n,resultat:integer;
begin
resultat:=0;
  for n:=1 to length(chisl) do
    begin
      resultat:=resultat+strtoint(chisl[n]);
    end;
end;

var i:integer;
 
function summ(chisl:string):integer;
var n,resultat:integer;
begin
resultat:=0;
  for n:=1 to length(chisl) do
    begin
      resultat:=resultat+strtoint(chisl[n]);
    end;
result:=resultat;
end;
 
begin
  for i:=1 to 100 do
    writeln(i,' is ', summ(inttostr(i)));
readln;
end.

if summ(i)>summ(f(i)) then Writeln('Yes');

var i:integer;
     t:boolean;
 
function summ(numb:string):integer;
var n,resultat:integer;
begin
  resultat:=0;
 
  for n:=1 to length(numb) do
    resultat:=resultat+strtoint(numb[n]);
 
  result:=resultat;
end;
 
function Fct(numb:integer):integer;
var j, resultat:integer;
begin
  resultat:=1;
 
  for j:=1 to numb do
    resultat:=resultat*j;
 
  result:=resultat;
end;
 
begin
  t:=false;
  i:=1;
    
  while (i<=100) and (t=false) do
    begin 
      if ( summ(inttostr(i)) > summ(inttostr(Fct(i))) ) then
        t:=true
      else i:=i+1;
    end;
    
  If t=true then writeln('Yes')
  else writeln('No');
 
  readln;
end.

var i,t:integer;
 
function summ(numb:string):integer;
var n,resultat:integer;
begin
  resultat:=0;
 
  for n:=1 to length(numb) do
    resultat:=resultat+strtoint(numb[n]);
 
  result:=resultat;
end;
 
function Fct(numb:integer):integer;
var j, resultat:integer;
begin
  resultat:=1;
 
  for j:=1 to numb do
    resultat:=resultat*j;
 
  result:=resultat;
end;
 
begin
  t:=0;
  i:=1;
    
  while (i<=100) and (t=0) do
    begin 
      if ( summ(inttostr(i)) > summ(inttostr(Fct(i))) ) then
        t:=i
      else i:=i+1;
    end;
    
  If t=0 then writeln('No')
  else writeln('This is ', t);
 
  readln;
end.