Ez így jó?

var: változók deklarációja blokk kezdetének jelölése

integer: egész szám típus

readln: beolvasás

Bocsi itt voltak a lányomék az fiú unokámmal - 29. házassági évfordulónk van ma :)

Igen jó, de a DB-t felejtsd már el a p...ba. Mit akarsz vele ? Maximum arra jó, hogy kiírd hány számjegyű a szám, vagyis hányszor futott le a ciklus.

Már leírtam elötte, a min és max kiválasztás jó, de a többire a #8-as hozzászólásom áll, tehát a bevitellel kapcsolatos hibák vannak. Megint jössz a DB-vel :) rendben legyen, de mihez hasonlítod ? MAXDB-nek nincs értéke ???

A logikai dolgokon - and, or, xor, not... - kicsit gondolkozz el.

Ciklus amíg DB<= MAXDB és HM<>100 eleve hibás mivel MAXDB nincs deklarálva, nincs kezdőértéke, de ha lenne is akkor is addig futna a ciklus, mivel DB=0 míg HM el nem éri a 100 értéket.

Helyesen :

DB=0

Be:HM

MAXDB = 20 // 20 bekérhető szám

Ciklus amíg DB<= MAXDB vagy HM>100 // csak 20 vagy csak kétjegyű szám

DB=DB+1

...

Az általam meghatározott feltételben a ciklusnak akkor van vége ha 20 számot beolvastál ( DBMAX értéke) vagy a bevitt szám nagyobb mint 100. - Bocsi itt 99 kellet volna :).

Vagy Ciklus amíg HM <> '' tehát csak entert nyomtál, érték nincs.