3. Дано натур. семизначное число P. Вычислить сумму чётных цифр числа. Вывести на экран последовательность из четных цифр числа.
помогите написать программу в Паскале.

var P, sum: integer;posl:string;beginsum:=0;readln(P);while P> 0 do  beginif P mod 10 mod 2=0 then beginsum:=sum+P mod 10;posl:=posl+' '+P mod 10;end;P:=P div 10;end;writeln(sum);writeln(posl);end.