program TimChuSoChan;
var
  N, temp, count: Integer;
  digit: Integer;
begin
  // Nhập số nguyên dương N từ người dùng
  Write('Nhập số nguyên dương N: ');
  Readln(N);

  // Khởi tạo biến count để đếm số chữ số chẵn
  count := 0;

  // Kiểm tra từng chữ số của N
  temp := N;
  while temp > 0 do
  begin
    digit := temp mod 10; // Lấy chữ số cuối cùng
    if digit mod 2 = 0 then // Kiểm tra chẵn
    begin
      Write(digit, ' '); // In chữ số chẵn
      count := count + 1; // Tăng biến đếm
    end;
    temp := temp div 10; // Loại bỏ chữ số cuối cùng
  end;

  // Hiển thị số chữ số chẵn đã tìm được
  Writeln;
  Write('Số chữ số chẵn của ', N, ' là ', count);

  Readln;
end.