pascal uzd

Duotas sveikųjų skaičių intervalas [a;b]. Raskite sumą tokių skaičių, kurių skaitmenys vienodi ( pvz. 111; 222).

Nurodymas: vienodus skaitmenis raskite su ciklu while; skaičiuokite kiek yra iš viso skaitmenų, ir kiek yra skaitmenų lygių paskutiniam skaitmeniui.

Pvz. 4555 iš viso skaitmenų - 4; paskutinis skaitmuo 5, skaitmenų lygių 5 yra 3. Vadinasi skaičius 4555 nėra tinkamas.

x = a
while x != b
begin

 //randam skaitmenų kiekį
 y = x
 while y mod 10 > 0
 begin
   skaitmenu = skaitmenu + 1
   y = y div 10
 end

 //paimam paskutinį skaičių
 paskutinis = x mod 10

 //skaičiuojam skaitmenis lygius paskutiniam
 y = x
 while y mod 10 > 0
 begin
   if y mod 10 == paskutinis
   lygiu_paskutiniam = lygiu_paskutiniam + 1
   y = y div 10
 end

 //jei skaitmenu == lygiu_paskutiniam, tai sąlyga tenkinama, reiškia skaičių pridedam prie jau turimos sumos
 if skaitmenu == lygiu_paskutiniam
    suma_lygiu_skaiciu = suma_lygiu_skaiciu + x

 //einam į sekantį skaičių
 x = x + 1


end
print suma_lygiu_skaiciu

Neprisimenu pascalio sintaksės, bet susitvarkyt turi sugebėt pats. Pačią užduotį atlikt galima ir paprasčiau, bet pagal tavo nurodymus manau, kad padariau teisingai.