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

var a, b : integer;begin

cls;write ( \'Введите трёхзначное число: \' );readln ( a );writeln ( \'Трёхзначные числа, меньше заданного числа: \' );for b := 100 to 999 do // так как все числа от 100 до 999, включая 100 и 999, являются трёхзначными.beginif b < a then writeln ( b );end;end.