Răspuns:
var a,b,c,n,k,g: integer;
begin
c:= 1;
write('m='); readln(a);
write('n='); readln(n);
while( n<>0 ) do
begin
b:= b + 1;
g:= g + (n mod 10);
n:= n div 10;
end;
writeln('Numarul n are' ,b, ' cifre');
while (a <> 0) do
begin
c:= c * ( a mod 10);
k:= b + ( a mod 10);
a:= a div 10;
end;
writeln('Produsul nr. m este ' ,c);
if k = g then
writeln('Suma nr. m si n sunt egale)
else
writeln('Suma nr. m si n nu sunt egale);
end.
