Паскаль.Функции

[Ksushka12]

Пожалуйста помогите!Даны три числа. Определить,в каком из них сумма цифр больше. Подсчёт суммы цифр организовать в виде функции.

[p51x]

Чем помочь? Во фриланс послать?

[Ksushka12]

помоги пожалуйста написать программу

[Serge_Bliznykov]

разбирайтесь:

function SumDigits(Num : longint) : integer;
var  MySum : integer;
     OneDigit : integer;
begin
  MySum := 0;
  while Num>0 do begin
      OneDigit := Num mod 10;
      Num := Num div 10;
      MySum := MySum + OneDigit;
  end;
  SumDigits := MySum
end;
var A, B, C : integer;
  SumA, SumB, SumC : integer;
begin
   Readln(A,B,C);
   SumA := SumDigits(A);   
   SumB := SumDigits(B);
   SumC := SumDigits(C);
   if (SumA>SumB) and (SumA>SumC) then 
       WriteLn('Максимальная сумма у числа ',A:1)
   else 
     if (SumB>SumA) and (SumB>SumC) then 
        WriteLn('Максимальная сумма у числа ',B:1)
     else 
       if (SumB=SumA) and (SumA=SumC) then 
           WriteLn('Сумма цифр у всех чисел одинакова')
       else
          WriteLn('Максимальная сумма у числа ',C:1);
 readln;
end.

[Ksushka12]

Спасибо большое