{$mode TP}

program tb0840;

uses uw0840a;

begin
  uw0840b.i:=1;
end.