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

var a,b:integer;beginwriteln('введите число');readln(a);for b:=100 to 999 dobeginif b<a then writeln(b);end;end.