Написание програм с использованием подпрограмм.

[Алексей 1994]

1.Найти сумму нечетных делителей натурального числа.
2.Найти сумму целых чисел из промежутка от 1 до 200, у которых ровно 5 делителей.
3.Вывести на печать сто простых чисел.
Данные задачи уже решены, но требуется их написать с использованием подпрограмм (процедуры или функции). Вот собственно в этом и затрудняюсь. Прошу помочь с этим!
1.

var
n,i,s: integer;
begin
Write(' Ââåäèòå íàòóðàëüíîå ÷èñëî:');
Readln (n);
Writeln( ' Íå÷¸òíûå äåëèòåëè: ');
for i:=1 to n div 2 do
if  (odd(i)) and ( n mod i=0) then
begin
Inc ( s,i);
Write (i, ' ');
end;
Writeln;
Writeln( 'Ñóììà íå÷¸òíûõ äåëèòåëåé:',s);
end.

2.

var i,j,s,k:integer;
begin
writeln('×èñëà îò 1 äî 200, èìåþùèå 5 äåëèòåëåé:');
s:=0;
for i:=1 to 200 do
begin
k:=0;
for j:=1 to i do
if i mod j=0 then k:=k+1;
if k=5 then
begin
write(i,' ');
s:=s+i;
end;
end;
writeln;
write('Èõ ñóììà=',s);
readln
end.

3.

var a,b:integer;
begin
b:=0;
writeln('Ñòî ïåðâûõ ïðîñòûõ ÷èñåë : ');
for a:=0 to 10000 do
begin
if (a mod 2 <> 0)or(a=2) then
begin
if (a<>1) then
begin
write(a:3);
b:=b+1;
end;
if (a mod 33=0)or(a mod 67=0)or(a mod 99=0)or(a mod 131=0) then
writeln;
b:=b+1;
end;
if a>=100 then break;
end;
end.

[fbus]

ну если все задачи решены верно, просто придумываешь название функции, передаешь ей числа как параметры, и получаешь на выходе результат, а в основном теле программы просто вызываешь их.

[Алексей 1994]

Можете наглядно показать, как программа выглядит с использованием подпрограмм.
К примеру вот эта:Найти сумму нечетных делителей натурального числа.

Var n, i, s: integer;
Begin
writeln ('Введите натуральное число');
readln(n);
s := n;
writeln('Нечётные делители:');
for i := 1 to n div 2 do
  if (n mod i) = 0 then begin
    write(i,'  ');
    s := s + i;
  end;
writeln(n);
writeln('Сумма нечётных делителей: ',s);
End.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

ну, во-первых, у вас программа неверно написана.
нужно иницилизировать сумму НУЛЁМ и считать только НЕЧЁТНЫЕ делители!

  writeln ('Введите натуральное число');
  readln(n);
  s := 0;

во-вторых, в Паскале есть два вида подпрограмм: процедуры и функции.
Вам какой вариант нужен?

вот, например, с помощью функции:

function GetSumOddDividers(NN : integer) : integer;
Var i, ss : integer;
begin
  ss := 0;
  for i := 1 to NN do
    if odd(i) and (NN mod i = 0) then ss := ss + i;
  GetSumOddDividers := ss;
end;

Var n : integer;
Begin
  writeln ('Введите натуральное число');
  readln(n);
  writeln('Сумма нечётных делителей: ',GetSumOddDividers(n));
End.