Написать программу в паскале. дано произвольное целое положительное число k. найти сумму всех чётных цифр этого числа

Program folsc;
uses crt;

var s, n:longint;

begin
s:=0;
read (n);
while (n <> 0) do begin
if ((n mod 10) mod 2) =0 then s:=s+n mod 10;
n:=n div 10 end;
writeln (s);
end.