Прога

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var x,b,i,sum2,a,sum1:integer;
begin
   Repeat
    Sum1:=0;
    a:=0;
    x:=a;
      Repeat
      Sum1:=Sum1+a mod 10;
      a:=a div 10;
      until a=0;
  b:=0;
  x:=b;
  i:=2;
  sum2:=0;
  Repeat
  if b mod i=0 then
    begin
    sum2:=sum2+i;
    b:=b div i;
    end
  else
  i:=i+1;
  Until b=1;
  if sum1=sum2 then
  writeln( x);
 Until x>100;
 readln(x);
end.