Nesuprantu paskalio uždavinio (su while ciklu)

Sveiki, nesuprantu paskalio uždavinio. Sąlyga: "Duotas natūralus skaičius. Parašyti programą, kuri nustatytų ar skaičius sudarytas tik iš nelyginių skaitmenų." Atrodo, kad galima padaryt tiesiog su x mod 2 = 0 ir t.t., bet reikia while ciklą pritaikyt, na ir ta sąlyga keista, bent man. Buvau olimpiadoje, tai ėjau konsultuotis vakar su mokytoja, bet vis tiek nesugebu išspręst, šiaip tuo tarpu viskas atrodė, kaip ir aišku, bet kai uždavė tokį namų darbą, kuris toks įdomus, tai ką aš žinau. :/ Dar bandžiau su if'ais, bet ne visus skaičius patikrina, tai tokia bugova programa gaunasi ir šiaip daug kodo, tai..........

visu pirma įsivesk papildomą kintamajį.

while suki, kol skaičius nelygus nuliui.

tada naturalų skaičių % 10 ir jį prisilygink papildomam kintamajam(taip gausi paskutinį skaitmenį)

tada su if'u tikrini tą skaitmenį (if sk % 2 != 0), patikrindamas gražini true arba false reikšmę.

tada naturalų skaičių / 10 (taip atmesi patikrintą skaitmenį)

visu pirma įsivesk papildomą kintamajį.

while suki, kol skaičius nelygus nuliui.

tada naturalų skaičių % 10 ir jį prisilygink papildomam kintamajam(taip gausi paskutinį skaitmenį)

tada su if'u tikrini tą skaitmenį (if sk % 2 != 0), patikrindamas gražini true arba false reikšmę.

tada naturalų skaičių / 10 (taip atmesi patikrintą skaitmenį)

Papildomas kintamasis nereikalingas. Užtenka vieno kintamojo t.y. pačio skaičiaus.

Paskalio neliečiau jau, tikriausiai, daugiau nei 10 metų, bet for fun pagooglinau syntaxę ir parašiau:

Program testInt(output);

var x : integer;

begin

x := 1234;
while x > 0 do begin

	writeln('SKAIČIUS: ', (x mod 10));

	if(((x mod 10) mod 2) = 0) then
		writeln('LYGINIS')
	else
		writeln('NELYGINIS');
	x := x div 10;

	writeln('----');

end;

end.

Manau, kad olimpiadose turėtų būti kurkas sudėtingesnių uždavinių.. Net keista, kad nesugebi išspręsti :)

Na olimpiados ne tik informatikos būna, bet tarkim :D. Dėkui už ats.