ДАЮ 25 БАЛЛОВ!!! ВЫПОЛНЯТЬ В PascalABC.NET!!!!! Дано x- шестизначное натуральное число, найти сумму первых 3 цифр и сумму последних 3 цифр.
ПОЖАЛУЙСТА!!!!!!

спасибо!!!!!!!!!!!!!!!!!!!!!!!!!

огромное!!!!!!!!!!!!!!!

у меня есть ещё 2 задачки нерешённые с большим кол-ом баллов!

https://znanija.com/task/25932153

https://znanija.com/task/25932414

var a, b, c, d, e, f, g, h, j:integer;beginwrite('Введите число: ');read(a);b := a mod 10;c := (a div 10) mod 10;d := (a div 100) mod 10;e := (a div 1000) mod 10;f := (a div 10000) mod 10;g := a div 100000;h := b+c+d;j := e+f+g;writeln('Сумма первых трех чисел: ', j);writeln('Сумма последних трех чисел: ', h);end.