[lmikle]

Вообще, программы не составляют, а пишут. Большинство считает, что это такой вид творчества/искусства.

А теперь по существу.
Ну совсем без процедур как-то скучно. Но давай попробуем:

Код:

program prg;

{$APPTYPE CONSOLE}

var
  S1, S2, S3 : Integer;
  V1, V2, V3 : Integer;
  CH1,CHI2, CH3 : Integer;

begin
  WriteLn('Введите три целых числа');
  Write('Число 1'); ReadLn(V1);
  Write('Число 2'); ReadLn(V2);
  Write('Число 3'); ReadLn(V3);

  CH1 := V1;
  S1 := 0;
  While CH1 >= 10 Do
     Begin
        S1 := S1 + (CH1 mod 10);
        CH1 := CH1 div 10;
    End;

  CH2 := V2;
  S2 := 0;
  While CH2 >= 10 Do
     Begin
        S2 := S2 + (CH2 mod 10);
        CH2 := CH2 div 10;
    End;

  CH3 := V3;
  S3 := 0;
  While CH3 >= 10 Do
     Begin
        S3 := S3 + (CH3 mod 10);
        CH3 := CH3 div 10;
    End;

  WriteLn('Числа в порядке возрастрания:');

  If (S1 < S2) And (S1 < S3) 
    Then WriteLn(S1) 
    Else 
        If (S2 < S1) And (S2 < S3) 
         Then WriteLn(S2) 
         Else WriteLn(S3);

  If ((S1 > S2) And (S1 < S3)) Or ((S1 > S3) And (S1 < S2)) 
    Then WriteLn(S1)
    Else
      If ((S2 > S1) And (S1 < S3)) Or ((S2 > S3) And (S2 < S1))
        Then WriteLn(S2)
        Else WriteLn(S3);

  If (S1 > S2) And (S1 > S3) 
    Then WriteLn(S1) 
    Else 
        If (S2 > S1) And (S2 > S3) 
         Then WriteLn(S2) 
         Else WriteLn(S3);
end.

Вот как-то так.

ЗЫ. Сделал, потому что было интересно выполнить задание без использования массивов, строк, процедур и т.д. В следующий раз перед тем как помогать ждем вашего кода.