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.