определить сумму трех цифр пятизначного числа

Программа считает сумму последних трех цифр:
Pascal:
var n:longint;
      sum,i:integer;
begin
  repeat
   write (N = );
   readln (n):
  until (n>=10000) and (n  sum:=0;
  for i:=1 to 3 do
   begin
     sum:=sum+(n mod 10);
     n:=n div 10;
   end;
  writeln (Summa: ,sum);
end.

C++:
#include
using namespace std;
int main()
{
  int n,sum = 0;  
  do
  {
    cout
    cin >>n;
  }
  while (n99999);
  for (int I = 1; I
  {
    sum+=n%10;
    n/=10;
  }
  cout   
  return 0;
}