inceput

intreg a, b;

citeste a, b;

pentru(intreg i <- a, b, 1)

	inceput

	intreg nrCifrePare <- 0;
	intreg nrCifreImpare <- 0;

	nr <- i;

	cat timp(i != 0)

		inceput

		intreg cifra <- nr % 10;
		nr <- nr / 10

		daca(cifra % 2 = 0) nrCifrePare = nrCifrePare + 1;

		altfel daca (cifra % 2 = 1) nrCifreImpare = nrCifreImpare + 1;

		sfarsit

	daca(nrCifrePare = nrCifreImpare) scrie i;

	sfarsit

sfarsit