Turbo pascal хелптретие задание

Question

Turbo pascal хелп
третие задание

---

Answer 1

Var
  n,i:integer;
  ar:array[1..100] of integer;

function NumSum(n:integer):integer;
Var
  res:integer;
begin
res:=0;
while n<>0 do
  begin
    res:=res+n mod 10;
    n:=n div 10;
  end;
NumSum:=res;
end;

begin
readln(n);
for i:=1 to n do
readln(ar[i]);
for i:=1 to n do
writeln(ar[i],'-',NumSum(ar[i]));
end.

Пример ввода:
123
0
23
203
1
Пример вывода:
123-6
0-0
23-5
203-5
1-1