Очень-очень надо!Завтра сдавать уже=( Реализовать в виде модуля набор подпрограмм...(Pascal)

[Dizzy]

Реализовать в виде модуля набор подпрограмм для выполнения следующих операций с целыми числами:
-дано натуральное число N. Определить количество восьмизначных чисел, у которых сумма цифр в цифровой записи числа меньше, чем N.
Если таких чисел нет, вывести слово "нет".
-дано натуральное число N (N>9). Определить сумму цифр во второй половине числа(младшие разряды). Пример: N=12 345 678. Сумма составляет 5+6+7+8=26.
-дано натуральное число n. Проверить, будут ли все цифры числа различными. Разработать программу, использующую подпрограмму данного модуля.
Заранее спасибо!

[Dizzy]

на последнее условие код сделала
вот он
#program EvgeniiSp;
uses Crt;
var
flag: boolean;
n,i,x,k,j: integer;
mas: array[1..20] of integer;

//------ Input_data ------//
procedure Input_data;
begin
write('Введите натуральное число n: ');
readln(n);
end;

//---- Output_data ------//
procedure Output_data;
begin
k:=0;
x:=n;
flag:=true;
while n > 0 do //проверим сколько цифр в числе
begin
k:=k+1;
mas[k]:=n mod 10;
n:=n div 10;
writeln(mas[k]);
end;
for i:=1 to k do // сравним цифры
for j:=1 to k do
if (mas[i] = mas[j]) and (i <> j) then flag:=false;
if flag = true then writeln('цифры в числе различны.')
else writeln('цифры в числе не различны.');
end;

begin
ClrScr;
Input_data;
Output_data;
end.

а первые два не получаются, и модуль собрать тоже не выходит(((

[was3110]

А сейчас какая срочность?

[Dizzy]

завтра сдать надо уже

[Mad_Cat]

на последнее условие код сделала

program EvgeniiSp;

хоть бы название поменяли!(если уж за свое- чужое выдаете!)
обращайтесь-контакты в профиле!