Придумайте задачу в которой можно использовать цикл с параметрами, но нельзя использовать цикл for с параметрами.

var a:integer;beginrepeatwriteln('Введите натурально число не больше 100');readln(a);untill (a>0) and (a<100);end.// Запомни такой пример много где спрашивается... ( repeat цикл с потусловием)