Ну, наверное это должно выглядеть как то так. Я плохо помню паскаль
program Help; #Заголовок
var #Раздел с переменными
a, b ,c, summ : real; #Входные переменные и по итогу их сумма, вещественные
begin #Думаю понятно
summ := 0; #Инициализация summ, ибо статическая типизация
writeln('Enter nums'); #Программа попросит ввести числа
readln(a); #Считывание
readln(b); #Считывание
readln(c); #Считывание
if a > 0 then summ += a; #Если переменная а больше нуля, прибавляем её к итоговой переменной
if b > 0 then summ += b; #Аналогично
if c > 0 then summ += c; #Аналогично
write(summ); #Выводим переменную summ на экран
end.
// Внимание! Если программа не работает, обновите версию!
function SumDigits(n:integer):integer;
begin
Result:=0;
while n>0 do begin
Result+=n mod 10;
n:=n div 10
end
end;
begin
var s:=ReadArrInteger('Вводите:',3).Select(x->SumDigits(x)).ToArray;
var i:=s.IndexMax;
var k:=s.Where(x->x=s[i]).Count;
case k of
1:begin
Write('Сумма цифр наибольшая у ');
case i of
0:Write('первого');
1:Write('второго');
2:Write('третьего');
end;
Writeln(' числа')
end;
2:begin
Write('Сумма цифр наибольшая у ');
if s[0]=s[1] then Writeln('первого и второго чисел')
else
if s[0]=s[2] then Writeln('первого и третьего чисел')
else Writeln('второго и третьего чисел')
end;
3:Writeln('Суммы цифр у всех трех чисел равны')
end
end.
Примеры
Вводите: 102030 324 19
Сумма цифр наибольшая у третьего числа
Вводите: 16453 4320 56341
Сумма цифр наибольшая у первого и третьего чисел
Вводите: 12345 12354 54321
Суммы цифр у всех трех чисел равны