Дано четырехзначное число. ВЫделить цифры этого числа. Четные цифры сложить,нечетные перемножить. (Использовать mod и \-целочисленное деление)

uses crt;var pr,sum,e,d,s,t,a:integer;beginreadln(a);e:=a mod 10;d:=(a div 10) mod 10;s:=(a div 100) mod 10;t:=a div 1000;pr:=1;sum:=0;if e mod 2 =0 then sum:=sum+e else pr:=pr*e;if d mod 2 =0 then sum:=sum+d else pr:=pr*d;if s mod 2 =0 then sum:=sum+s else pr:=pr*s;if t mod 2 =0 then sum:=sum+t else pr:=pr*t;writeln(sum);writeln(pr);end.