Подпрограммы

[toxa777]

Подпрограммы

Нужно написать подпрограммы для этой программы!:tehnari_ru_837:
Язык-Паскаль АБС

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.

 

[Gruvi]

Конкретней какие подпрограммы? задание совершенно не понял.

 

[toxa777]

Уже не нужно,сделал сам)Спасибо за отзывчивость)