Выведите на экран все положительные числа которые будут меньше числа введённого с клавиатуры (используя оператор while)

PASCAL ABC

СРОООЧЧНООО!!!

Var

a,b:integer;

Begin

Readln(a);

Readln(b);

While a <> 0 do

Begin

If a < b then

Writeln('a=',a);

Readln(a);

End;

End.