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

А 1-ые это которые слева либо которые справа?

слева

var a, Sum1, Sum2: integer;begin a := 12345; Sum1 := a div 10000 + a div 1000 mod 10 + a div 100 mod 10; Sum2 := a mod 10 + a div 10 mod 10; Writeln('Sum1 = ', Sum1); // 6 Write('Sum2 = ', Sum2) // 9end.

можно простой вид?

vara, b: integer;beginRead(a);b := a div 100000 mod 10 + 10 * (a div 100 mod 10) + 100 * (a div 1000 mod 10) + 1000 * (a div 1000000 mod 10) + 10000 * (a mod 10);Write(b)end.

типо такого

крч без sum

хорошо спасибо для вас . я разобрался теснее сам

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

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