помогите решыть в паскале

Question

6. Построить новое число M удвоением (двойной записью) чётных цифр N (с сохранением всех нечётных цифр) . нужно решыть в паскале

Дмитрий 111 · Accepted Answer

var 
 n: integer; 
 m, k: longint; 
begin 
 write('n? '); 
 readln(n); 
 k := 1; 
 while n <> 0 do begin 
 if not odd(n mod 10) then begin 
 inc(m, n mod 10 * k); 
 k := k * 10; 
 end; 
 inc(m, n mod 10 * k); 
 k := k * 10; 
 n := n div 10; 
 end; 
 write('m: ', m); 
end.