Var 
  A, B : integer;
 
procedure Fo(A, B:integer);
var
  i : integer;
begin
  for i:=A to B do
    write(i,' ');
  writeln('N = ',B-A+1); 
end;
 
procedure Whil(A, B : integer);
var
  n:integer;
begin
  n:=0;
  while (A <= B) do 
    begin
      write(A,' ');
      Inc(A);
      Inc(n);
    end;
    writeln('N = ', n);
end;
 
procedure Repea(A, B : integer);
var
  n : integer;
begin
  n:=0;
repeat
  write(A,' ');
  inc(A);
  Inc(n);
until (A>B);
write('N = ',n);
end;
 
begin
  Readln(A, B);
  Fo(A, B);
  Whil(A, B);
  Repea(A, B);
end.

ClZhciAKICBBLCBCIDogaW50ZWdlcjsKCnByb2NlZHVyZSBGbyhBLCBCOmludGVnZXIpOwp2YXIKICBpIDogaW50ZWdlcjsKYmVnaW4KICBmb3IgaTo9QSB0byBCIGRvCiAgICB3cml0ZShpLCcgJyk7CiAgd3JpdGVsbignTiA9ICcsQi1BKzEpOyAKZW5kOwogIApwcm9jZWR1cmUgV2hpbChBLCBCIDogaW50ZWdlcik7CnZhcgogIG46aW50ZWdlcjsKYmVnaW4KICBuOj0wOwogIHdoaWxlIChBIDw9IEIpIGRvIAogICAgYmVnaW4KICAgICAgd3JpdGUoQSwnICcpOwogICAgICBJbmMoQSk7CiAgICAgIEluYyhuKTsKICAgIGVuZDsKICAgIHdyaXRlbG4oJ04gPSAnLCBuKTsKZW5kOwoKcHJvY2VkdXJlIFJlcGVhKEEsIEIgOiBpbnRlZ2VyKTsKdmFyCiAgbiA6IGludGVnZXI7CmJlZ2luCiAgbjo9MDsKcmVwZWF0CiAgd3JpdGUoQSwnICcpOwogIGluYyhBKTsKICBJbmMobik7CnVudGlsIChBPkIpOwp3cml0ZSgnTiA9ICcsbik7CmVuZDsKCmJlZ2luCiAgUmVhZGxuKEEsIEIpOwogIEZvKEEsIEIpOwogIFdoaWwoQSwgQik7CiAgUmVwZWEoQSwgQik7CmVuZC4=

NSAxMA==

5 10