Задано целое число. Верно ли, что утроенная сумма цифр этого числа равна их произведению?

procedure TForm1.Button1Click(Sender: TObject);
var n,p,s:integer; st:string;
begin  n:=strtoint(edit1.Text);
       s:=0;
       p:=1;
       while n<>0 do
       begin s:=s+(n mod 10);
             p:=p*(n mod 10);
             n:=n div 10;
       end;
       if s*3=p then st:='yes' else st:= 'no';
       showmessage(st);
end;

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
procedure RemoveX(var a:array of integer;n,x:integer);
var i,j:integer;
    b:array of integer;
begin
SetLength(b,1);
j:=0;
for i:=0 to n do
if a[i]<>x then// проверяем не равен ли елемент массива числу х если нет то
 begin
 b[j]:=a[i];//заносим его в новый масив
  inc(j);//увеличиваем индекс масива б на 1
 SetLength(b,j+1);// устанавливаем новую длину масива на 1 больше
 end;
n:=j;
for i:=0 to n do
a[i]:=b[i];// копируем в масив а елементы масива б
end;
 
 
var a:array of integer;
    i,len,x:integer;
    com:char;
begin
Writeln('Ukagite dlinu masiva:');
readln(Len);
SetLength(a,len);
Writeln('dla ruchnogo vvoda nagmite "w", dlya generacii "g"');
readln(com);
case com of
 'g':
     begin
      randomize;
      writeln('Ishodniy:');
      for i:=0 to len do
        begin
         a[i]:=random(30)-20;
         write(a[i],' ');
        end;
      writeln;
     end;
 'w':
     begin
      writeln('Vvedite znachenia:');
      for i:=0 to len do
       readln(a[i]);
     end;
end;
writeln('Vvedite znachenia x:');
readln(x);
writeln;
RemoveX(a,len,x);
for i:=0 to len-1 do
write(a[i],' ');
readln;
end.