2)

const fi = 'PERM.INP';
    fo = 'PERM.OUT';
var a:longint;

function sumDigits(a:longint):longint;
begin
    if(a < 10) then exit(a) else exit(a mod 10 + sumDigits(a div 10));
end;

begin
    assign(input,fi); reset(input);
    assign(output,fo); rewrite(output);
    readln(a);
    writeln(sumDigits(a));
    close(input); close(output);
end.

1) NCOUNT

uses crt;
var a:string;
    res:longint;

procedure sumDigits();
var i:longint;
begin
    for i:=1 to length(a) do res:=res + (ord(a[i]) - 48);
end;

begin
clrscr;
    readln(a);
    sumDigits();
    writeln(res);
readln;
end.