Паскаль решение задач! Запишите программу умоляяю!!! Помогите пожалуйста!!! Нужно ввести пятизначное число. Найти в нем сумму четных и сумму нечетных цифр.

В предыдущем вопросе я написала решение.program z;var a,b,c,d,e,x,g,h:integer;beginwrite('Введите пятизначное число');read(x);a:= x mod 10;b:= x mod 100;b:= b div 10;c:= x mod 1000;c:= c div 100;d:= x mod 10000;d:= d div 1000;e:= x mod 100000;e:= e div 10000;if a mod 2=0 then h:=aelse g:=a;if b mod 2=0 then h:=h+belse g:=g+b;if c mod 2=0 then h:=h+celse g:=g+c;if d mod 2=0 then h:=h+delse g:=g+d;if e mod 2=0 then h:=h+eelse g:=g+e;writeln(' Сумма нечётных цифр равна ', g);write(' Сумма чётных цифр равна ', h);end.