Acum i-ai dat copy/paste din pascal sau l-ai scris din nou aici? In caz ca este varianta copiata din pascal, am gasit 2 greseli de sintaxa (la until b=0 si la while r>=b). L-am pus si eu in pascal, dar la "run" imi da ciclare infinita pentru a si b. Nu stiu cum de ti-a mers la scoala programul...