Нужно написать подпрограммы для этой программы!
Язык-Паскаль АБС
VAR
N,m,S:LongInt;
BEGIN
Write('N= ');
ReadLn(N);
m:=1;
Repeat
m:=m*10;
Until m>N;
m:=m div 10;
S:=N div m;
Repeat
m:=m div 10;
if m>0 then
begin
N:=N mod m;
m:=m div 10;
if m>0 then
S:=S+(N div m);
end;
Until m=0;
Writeln('S= ',S);
Readln
END.