Найти все целые трехзначные числа, которые меньше заданного числа. С помощью цикла с послеусловием

если возможно, поставьте лучший ответ ;D

спасибо)

var a,b,c:integer;beginb:=100;writeln('введите число');readln(a);repeatif (a>b) then writeln(b);b:=b+1;until (b>999);end.