Найти все целые трехзначные числа,которые меньше заданного числа. (Pascal)

Question

Найти все целые трехзначные числа,которые меньше заданного числа.
(Pascal)

Answer 1

Var a,b:integer;
begin
writeln('введите число');
readln(a);
for b:=100 to 999 do
begin
if bend;
end.