pascal

VAR

l,b : integer;

BEGIN

b :=0;

l :=1;

while l>10 do

begin

b:=b+1;

l:=l+1;

WRITE('l:','b:',b);

END;

END.