Pascal - Problemi con i cicli...HELP HELP

allora in questo programma un ciclo è totalmente inutile, è un po' come chiedermi di usare un cacciavite per magiare la pasta, si può fare ma è inutile XD

Anche se usi il ciclo dovrai comunque usare una condizione.

Lo so...non ti sto dicendo ke è utile però purtroppo la prof lo vuole cosi e non riesco proprio a capire cme fare..se puoi postarmi il proceidmento del ciclo mi fai un grande favore

te l'ho fatto di fretta, ma credo le vada bene:

program prg;
uses crt, dos;
var x, y: integer;

begin
writeln('introduci primo numero intero: ');
readln(x);
writeln('introduci secondo numero intero: ');
readln(y);

if(x > y) then
     begin
     if (x mod y) = 0 then writeln('Il numero ',x,' e'' maggiore di ',y,' ed e'' divisibile per ',y)
     else writeln('Il numero ',x,' e'' maggiore di ',y,' ma non e'' divisibile per ',y);
end;

if(y > x) then
     begin
     if (y mod x) = 0 then writeln('Il numero ',y,' e'' maggiore di ',x,' ed e'' divisibile per ',x)
     else writeln('Il numero ',y,' e'' maggiore di ',x,' ma non e'' divisibile per ',x);
end;

readln();
end.

Causa velocità in cui i partecipanti della discussione rispondevano velocemente XbarboX mi ha preceduto

cassin.simone senti te sei capace di fare questo algoritmo con un ciclo WHILE DO ??

Se mi spieghi dove ci vuoi piazzare sto while do posso tentare

a dir la verità non lo so neanche io...xò penso dopo ke facciamo la condizione if a > b ...