Pascal - Problemi con i cicli...HELP HELP

Il ciclo puo' servire per chiedere altri numeri da testare ...

Se non lo sai nemmeno tu ti consiglio vivamente di chiedere, con tutta l'onestà di questo mondo, alla tua prof. dove va messo.

hei ci sono riuscito....ho ragionato un pò e sono riuscito a trovare la condizione!! Cmq la prof non è ke dice di fare il ciclo xke è il metodo migliore ma xke evidentemente ci vuole far sviluppare una metodica più ampia...anke xke vedi te da quanto vedo non riesci a farlo col ciclo ma soltanto con la condizione! Cmq questo qui è la sorgente --->


program P_o_D;
uses crt;
var a,b,aux: integer;

BEGIN
clrscr;
writeln('Inserisci un primo numero intero positivo');
readln(a);
writeln('Inserisci un secondo numero intero positivo');
readln(b);
aux:= a;
while aux >= b DO
aux := aux - b;
if aux = 0
then writeln('I numeri sono divisibili')
else writeln('I numeri non sono divisibili');

readln;
END.

usare la funzione mod no e? Perché impegolarsi in questo modo? Quando uno crea un programma deve solo stare attento a due cose:
1)Creare codice riutilizzabile (no variabili globali);
2)Scrivere meno codice possibile e con molti commenti(e possibilmente con il minor numero di variabili);

Si si lo so...ma la prof. purtroppo vuole quel tipo di programma..!