Безотлагательно!!!!ввести естественное число и найти, правильно ли, что сумма цифр одинакова

Pascal:
var n,sum:integer;
begin
  sum:=0;
  write ('N = ');
  readln (n);
  while n lt;gt; 0 do
   begin
    sum:=sum+(n mod 10);
    n:=n div 10;
   end;
  if sum = 10 then writeln ('YES') else writeln ('NO');
end.

C++:
include lt;iostreamgt;
using namespace std;

int main()

  int n,sum = 0;
  cout lt;lt;"N = ";
  cin gt;gt;n;
  while (n!=0)
 
   sum+=n%10;
   n/=10;
 
  if (sum==10)
    cout lt;lt;"YES" lt;lt;endl;
  else cout lt;lt;"NO" lt;lt;endl;
  return 0;