очень надоооооооооо паскаль срочнооооооооооооооооооооооооооооооо

типо такого

крч без sum

ладно спасибо вам . я разобрался уже сам

!!!!!!!!!!!!!!!!!!!!!!!!!!

Sum1 и Sum2 это переменные, вы же суммы ищете, вот это и есть суммы. Это простое решение через div и mod. Только в программе вам наверное число нужно вводить, то и напишите Readln(a) вместо a = 12345. У меня это для примера.

begin

 var a := 76543210;

 var s := a.ToString.Reverse.JoinIntoString;

 s := (s[1]+s[7]+s[4]+s[3]+s[6]);

 var b := s.ToInteger;

 Print(b)

end.