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

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