procedure szero(var x: scalar);
begin { szero }
  with x do begin
    u.si:=0;
    l.si:=0;
  end;
end { szero };

