Salut;
Utilises une boucle while(), ou repeat/untile ;

program suite;
var i ,n:integer;
Begin
//____________________methode 1________________
repeat
write('(methode1) donne une valeur...