Выведите ** экран все положительные числа которые будут меньше числа введённого с...

Question

Выведите на экран все положительные числа которые будут меньше числа введённого с клавиатуры (используя оператор while) PASCAL ABC СРОООЧЧНООО!!!

Answer 1

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.